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| **FILE**1De*BASVIRTIO 
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BASSS$VIRT_I0 16-Sep-1984 01:28:0 AX-11 Bliss-32 V Page 1 | 
| 1e-8ee= 1986 $1:Seiny — FOASRTL SRE TBASVYRIGO BS2;1 9 4) | 
; 1 1 MODULE BASS$VIRT_IO ! Virtual arra 

: ¢ 8 TOEN = *1-027' ! File: BASVIRTIO.B32 a Pits MDL1027 
5 4 004 BEGIN 
: § O08 } PREC ARgENT, reper neers ers 
3 e x 
; 8 BB 1 !e COB YRIGHT (c) 1978, 1980, 1982, 1984 B * 
s o 009 1 '* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
; 19 Ooty : i; ALL RIGHTS RESERVED. * 
g : * | 
3 1 \¢ 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
aS 15.1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
: 14 14 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 

2 oe 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

3 16 Bo18 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

: ot Baie ; 7” TRANSFERRED. a 
8 ie ® y 
A 19 itty 1 !® THE gfe IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
3 0 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT SY DIGITAL EQUIPMENT * 

3 1 ooS3 : :* CORPORATION. * 
3 ! * | 
3 $¢ 00 § 1 != DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
3 $ 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
5 5 0025 1 !« « | 
3 $8 0026 1 !«# * 
3 7 Ve Me CPSP PCTS TTT Tree er eer eer rrr rir iii i iii ii iii iii iii iiiiiiiiiiiiiiy 
; 2 0028 1! ; 
5 $3 594 1 i 
3 0 0030 1 !++ 

: = Oo, : FACILITY: VAX=11 BASIC Virtual Array Support i 
; 33 $033 1! ABSTRACT: 
3 4 0034 1! i 
; 0035 1! This module contains the 1/0 support for VAX-11 BASIC 
; 36 0036 1! virtual arrays. In the context of the RTL these are cotted 
: z 0037 1! “BAS! C File Arrays'’, since they are not properly a part i 
3 8 0038 1! the vax architecture. This module comprises the UD ane REC i 
: 4 4 : : levels of 1/0 for this very simple 1/0 interface. 
; 41 0041 1 i ENVIRONMENT: VAX-11 User Mode | 

; 23 irks 1! AUTHOR: John Sauter, CREATION DATE: 04-APR-1979 | 
2: 46 Bnee 1! 
:/- @& 045 1 ! MODIFIED BY: 

; 46 0046 1! 

3 67 0047 1 ! 1-001 - Original. This version does no buffering. It is dust for 

: 48 pes 1! hange Be out the index ioe routines. JBS 04-APR-1979 

: $3 sir : 1-002 - Change. ite t's to BASS$S$STOP_IO wherever possible. 

051 1 ! 1-003 - tAg comments based on DGP'’s review. JBS 09-APR-1979 

: 2g b2¢ : 1-004 - wecover If ree 183§or? Stream Totten RMS error. JBS 09-APR-1979 

; 4 O84 1 | 1-005 - Today fectualty Late Last night) the compiler began producin 

; 5 055 1! code for virtual arrays, so start debu ging. JBS 24-MAY-1979 

3 $ Boes 1 ! 1-006 - Take the ALQ paraneter out of the SFAB Tait e $8, that FABSL_ALQ 

$ 5 0S7 1! appears in the cross reference. JBS 24-MAY-1 


sagapynt_t° iEbeocsage 1:28:00 YAH Shae a taTez ane? 


1-007 = Don't allocate if the g fist is Td allocated beyond the 
1-008 - ueire. sheet tex ‘qtastbiarn on pointing to the same file 
i UN-1999 ’ 


! 1-009 = Remove the redundent DS 3. defintiions. JBS 19-JUN-1979 
10 = POP 1/0 on error. JB JUL-1979 
- The b ue 621899 for av 
! 1- 1 - Correct ; ty in BASSVA_PURGE. JBS 30-AUG-1979 
i3- or R RNF in parallel with RMS$ Eves 1398 17-SEP-1979 
- Disable EXTEND until it is fixed. JBS 17-5 


rtual array file must be 512 bytes. 


uw 


S&S 
NOUEWN oS 


When unwinding, ane that we Bove no b Editar, in, penor since 

i we want to retry all 1/0 operat ons. 18s 1 979 

! 1-016 = Signal errors if the RELEASE fails. nig? 

‘ disabled to run under release 1. yes - 

! 1-017 = The VAH was bad nye ek because we cannot purge t the virtual 
arrays monever we one control (consider ivide by zero 


wiht ipoye to be 


' 

i 

i 

' 

' 

' 

' 

' 

! 

' 

‘ 

' 

' 

‘ 

' 

' 

‘ 

: under an AK ERR BACK). Therefore, remove VAH and do not 
: use the HAN oe tists, Also, put the code back to using release 
: 1 RMS. JBS 18-SEP~1 197 

: 1-018 = Don’t allow u_stores into virtual arrays opened read only. 
' 
1 
i] 
' 
' 
' 
! 
' 
' 
' 
' 
' 
' 
‘ 
‘ 
‘ 
' 
t 
' 


ee | 


: JBS 07-NO 
! 1-019 = Convert .- "automatic record locking and NXR processing. 
JBS 09-NO 


! 1-020 = Remove BASSVA PURGE, which has been a no-op since oeehcemter 18, 
: since the compiler no longer refers to it. JBS 26-NOV-1979 

! 1-021 = Don't call BASS$CB_POP if the 1/0 data base has already been 

! cleaned up. JBS T1-JUN-1980 

! 1-022 = Add new entry points to fetch/store entire virtual arrays 


Wwn—o 


SSSEELES 


: instead of individual ervey 9 olggente. 1985¢ 2-Apr-1982 

! 1-023 - pee support for decimal. PLL 12-Apr-19 

! 1-024 - fix to entire array entry points - check to see if current 

utter needs tc be written out before getting/putting a new 

! ake PLL 35-May-1982 

! 1-025 - — fix to entire array entry points again. If the array size 
the offset add up to less than 512, use the array size for 

‘ the initial number of bytes A, copy. PLL 10-May-1198 

! 1-026 - Rake, sure ne ore Access will always be by key ia BASS$VA_CLOSE. 

} 7-Mar-1 

! 1-027 = check for RMS$_CONTROLC return status. MDL 30-Mar-1984 


SSS 
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ASSSVIRT_10 1-Sep-1 4 01:28: AX-11 Bliss-32 V Pa 
A303 1er$ep-1986 $1:Se:00  LexsRTusSResBASvIRTLO-682;1 - 
' 


SWITCHES: 


oO 
—_ 


SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
' 


; LINKAGES: 


SSLESREN 


LVI a a a ad dd dd 


9 1 

i 198 

> 105 1 

$Y 1 

< © 1 

3 198 1 

: 1% i 

> 111 19 1 

3 Ng 11 1 REQUIRE “RTLIN:OTSLNK’; ! Define Linkages 

s 41 +9 1 

: 116 4 1! 

3s 115 208 1 ! TABLE OF CONTENTS: 

fone ate 

: 118 545 1 FORWARD ROUTINE 

: #119 Rees 1 BASSSVA_FETCH : a Arte fe ' Fetch routine 

; 120 Bee 1 BASSS$VA_STORE 2 2 tN ' Store routine 

; 121 548 1 BASSSVA rp Oss : CALL. Lee NOVALUE, ' CLOSE effector 
| ; 0549 1 BASSSWHOLE_V fefens : NOVALUE, ' Fetch whole array 
2 gees 1 BASSSWHOLE_ “VAT STORE : NOVALUE, ' Store whole arra 

; 126 551 1 ANDLER; ' POP CCB on UNWIN 
wm Bed, 

oe 5 0554 1! INCLUDE FILES: 

Bo BBY 

: : : 0387 : REQUIRE *RTLML:OTSLUB’; ! Get LUB definitions 
3 ik 0698 REQUIRE "RTLIN:BASIOERR'; ! 1/0 error codes 

3 1 4 0758 REQUIRE "RTLIN:RTLPSECT'; ! Macros for defining psects 
: 136 0848 1 LIBRARY ‘RTLSTARLE'; ! System symbols 
1 BB 

> 139 0851 1 | MACROS: 

; 140 £36 1! 

hae tee 

: 128 855 1 | EQUATED SYMBOLS: 

408 BaP is 

: 146 836 1 ' The following Literal determines the span of the interlock on shared 
: 14 59 1! fi loa, That is, the number of bytes which are interlocked after a 
3; 148 0 1! reference to a "lecet ion in a virtual array. This is also the buffer 
g 133 1 : size required on the OPEN for the file. 

ii 

: 138 1 

3; «61546 1 

3; «6155 1 

: 136 1 

3; «15 1 

3; «62158 1 


Beeeaes 


LITERAL : , 
K_BLOCK_LENGTH = 512; ! Number of bytes in a virtual block 
ae 
re } PSECTS: 
890 DECLARE_PSECTS (BAS); ! Declare psects for BASS facility 


SES a ER es Se ee a ———_—_$ 
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BASSS$VIRT_10 16-Sep-1984 01:28:0 AX-11 Bliss-32 V4.0-74 P 4 { 
1 $$ 1e-8ep-19 4 91:80 YBASRTL SRE BASVIRTIO.832;1 — (2) 


OWN STORAGE: 
NONE 
EXTERNAL REFERENCES: 


SANG 


SOISAF ON 


EXTERNAL ROUTINE 
BASSSSTOP : NOVALUE 

BAS$$CB_PUSH : JSB_CB_PUSH NOVALUE, 
BASS$CB_POP : JSB_CB_POP NOVALUE, 
BA $c : JSB7CB-GET NOVALUE, 


NOVALUE, 
RLC_: NOVALUE, 
ALUE 


! signals fatal error 

' Load register CCB 

' Done with register CCB 

' Fetch current value of CCB 
! Signal fatal 1/0 error 

' Signal CTRL/C 

' Signal fatal error j 

! Match condition values 


'¢ 
: The following are the error codes used in this module. 


EXTERNAL LITERAL 
BA Virtual array not opened 
Virtual array not on disk 
= Virtual buffer too large 
BASSK_ILLOPE : UNSIGN Illegal operation 
BASSK_ILLILLACC : UN Il 
BASSK_PROLOSSOR : UN Pr 
OTSS$_FATINTERR; Fa 


legal or illogical access 
ogram lost, sorry 
tal in 


ternal OTS error 


Se Ge Ge Oe Se Ge Ge Oe Oe Se Ge Se Oe Ss Ge Se Se Ge Se Se Ge Se Se Se Se Se Ge Se Sse tee 
Coop 00000000 SNS uw 
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09 6000 0000 CD CD CD. 
CocD0D ey te art 4 
woo UEPwt—Oo 
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GLOBAL ROUTINE BASSSVA_FETCH ( 
DESCRIP, 


18-2204) 


984 01:28: AX-1 Liss-3 
12-808-138 ? 9° < aeieas 
! 
! 


1 
4 11:56:46 BASRTL. 


Fetch routine 

The descriptor for this virtual array 
Linearized index 

Where to store array item 


VIRTIO.B 


VALUE. 
) : NOVALUE = 


+e 
FUNCTIONAL DESCRIPTION: 


Fetch a value from a virtual array. Multiple bytes may be 
fetched with a single call. 


FORMAL PARAMETERS: 
DESCRIP.mz.r The descriptor for the virtual array 
INDEX. rl.v The byte offset into the array 
VALUE .wz.r The place to store the value. The number of 
prtes to store is in the LENGTH field of 
DESCRIP. 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 
Signals if an error is encountered. 


BEGIN 


MAP 
DESCRIP : REF BLOCK (8, BYTE); 


GLOBAL REGISTER 
CCB = K_CCB_LREG : REF BLOCK C, BYTE); 


BUILTIN 
ASHP; 

LOCAL : 
CHAN, ! The channel this ervey 5t defined on 
ANDLE ' Pointer to info for this array 
GET_STATUS, i Last RMS GET status 
PUT_STATUS ' Last RMS PUT status 
REAB_REC = we must read the record 


“RECORD, i 
SAVE_CCB : VOLATILE; ' CCB to POP, or zero. 


V4.0-74 Page 
WRI TO. 69251 9 035 


12 
| BASSSVIRT_10 1S-Se 1984 01:28:00 AX-11 Bliss-32 V4.0-74 Page 6 
e7? 12-88-13 94:88:20 BASRTL SREIBASVIRT 10.692: 1 . (3) 
; 248 959 
; 249 960 ed 
: 2 4d } Establish a handler to pop the CCB when unwinding. 
; 3g $968 
3 £0 0964 ENABLE 
; 254 0965 HANDLER (SAVE_CCB); 
3 @20 096 
> 256 096 1+ 
; ef 24344 Fetch the array's channel number from its descriptor 
i 959 970 ¢ | CHAN = .DESCRIP CDSCSL_LOGUNIT3; 
: 261 097 i Get a pointer to the LUB/ISB/RAB for this channel. If the channel has not 
3 o¢ 097 ! been opened yet, this call will allocate the LUB/ISB/RAB, but we will reject 
; 4 bape it for lack of the LUBSV_OPENED bit. 
: 265 0976 2  BAS$SCB_PUSH (.CHAN, LUBSK_LUN_MIN); 
; 508 Bare SAVE_CCB = .CCB; 
: 43 3444 IF ( NOT .CCB CLUBSV_OPENED]) THEN BASSS$STOP (BASSK_VIRARROPE) ; 
; $95 0981 2 !+ 
3s ert 098 ! If the channel was not opened with organization VIRTUAL, reject it. This 
3 sf¢ 098 ! also catches channel 0, which is always open but never has VIRTUAL 
: ae 0984 ! organization. 
: 598 oo 
; 376 0987 2 IF (.CCB CLUBSB_ORGAN] NEQ LUBSK_ORG_VIRTU) THEN BASS$$STOP_IO (BASS$K_VIRARRDIS); 
; $78 0989 § 1+ 
: 279 0990 ! If this channel has been used for block 1/0, reject it. 
Bg 
; Be 099 IF (.CCB CLUBSV_BLK_USE]) THEN BASS$STOP_IO (BASSK_ILLOPE); 
; 28 0994 2 
; 284 0995 '¢ 
3; «285 0996 ! If the record size declared for the file is not 512 bytes, reject it. 
. on oe 
: Soe 9444 IF (.CCB CRABSW_USZ] NEQ K_BLOCK_LENGTH) THEN BASS$S$STOP_IO (BASSK_VIRBUFTOO); 
: 290 1001 2 !4 
3 4 1906 : Mark the LUB as being used for a virtual array. 
; 38 1004 CCB CLUBSV_VA_USE = 1; 
> 294 1005 ‘ 
3 Be 1908 Record access will always be by key 
; 7 1008 2 CCB CRABSB_RAC) = RABSC_KEY; 
; 4 34 Mark the RAB so that a $GET to a non-existent record will still lock it. 
; 4 1912 ,  0CB CRABSV_NXR] = 1; 
: 0 1014 i Set the address of our CLOSE appendage in the LUB. If somebody else's 
: 304 1015 ' is already there, we have a serious problem. 


Dae eR AEE Ss Rs, PELL ele TS a EO 
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BASSSVIRT_10 16-Sep-1984 01:28:00 AX=11 Bliss-32 V4.0-74 

pAsss 1o-808- 1382 91:88:08 EBASRTL SRe BASVIRTIO.B832;1 
05 


0 
IF (.CCB CLUBSA_CLOSE] EQLA 0) THEN CCB CLUBSA_CLOSE] = BASS$S$VA_CLOSE; 


Co IOs 


14 
! We actually do the PUT only if the buffer has been changed since we Last 


0 
0 0 
, 8 IF (.CCB CLUBSA_CLOSE] NEQA BASSS$VA_CLOSE) THEN BASS$S$STOP_IO (BASSK_PROLOSSOR); 
1 0 '¢ 
1 0 ! If this is not the first reference to this file, we may have to 
1 0 ! write out the current buffer. We will write only if the current buffer 
1 0 ! is not the buffer we wish to access. LUBSL_LOG_RECNO is initialized 
: 8 } to zero for virtual files. 
1 0 : 
: iv 0s CLUBSL_LOG_RECNO] EQL ((. INDEX + .DESCRIP CDSCSL_BYTEOFFJ)/K_BLOCK_LENGTH) + 1) 
$ READ_RECORD = 0 

ELSE 

re BEGIN 
2 
2 
2 
2 


WANNA AA 


: read it, as recorded by LUBSV_OUTBUF_DR. 
IF (.CCB CLUBSV_OUTBUF_DR]) 
THEN 


BEGIN 

PUT_STATUS = $PUT (RAB = .CCB); 
IF .PUT_STATUS EQL RMS$_CONTROLC 

BASSS$SIGNAL_CTRLC (); 


MES WN —O OONOUE WN “OOONOUS WOO 


PDREDPEDRDAEDP SAMA & EB EEE EWAN NI AIPROPOPIPINPIPUNINON SS 


AAAI A AANA AAAI WWW 


Be Se ee Be Se Se Ge Se Ge Se Ge Ge Ge Ge Se Se Se Se Fe Se Se Ge Se FH SH Ss Se Se Se Se Be Se Se Ge Fe Os Se OH Se SF Ss Be oe HSH Se Ss Se Se BH S8 Ss OH Ss SH SHS 
S 5 at ee pb het any tye gre ab Oh ges oO 
OOONA NEW OS ODNOA UE WO ODN WN OOS NOUE WN OOO 


apedadadatabadluiaiubablatatadbabiababablaaabababadadadabtababubabababuababdabahabahababababababababababababababahababal 
CDOOCSCOCSOOSCOOCOCOOSOOCCOOOSOSOSOOSOSOOOOOOOCOOOOO 


4 
3 
4 
4 
4 
4 
4 
4 
4 
7 4 !+ 
8 4 ! If the PUT fails, we must worry about the RSA error, which can happen if 
9 4 ! we are running at AST level, and the AST interrupted some RMS I/0. If 
? 2 we get this error, wait for it to go away. Any other RMS error is fatal. 
4 
5 IF ( NOT .PUT_STATUS) 
44 4 HEN 
7 2 BEGIN 
47 5 WHILE (.PUT_STATUS EQL RMS$_RSA) DO 
8 6 BEGIN 
49 6 SWAIT (RAB = .CCB); 
2 1 e PUT_STATUS = $SPUT (RAB = .CCB); 
26 § ? IF .PUT_STATUS EQL RMS$_CONTROLC 
54 5 6 BASSSSIGNAL_CTRLC (); 
55 86 g 
35 O68 3 sls 
4 089 2 IF ( NOT .PUT_STATUS) THEN BASS$$STOP_IO (BASS$K_IOERR_REC); 
60 071 4 END; 
61 072 4 


Be Se Se Oe Se Se Be Se Se Se Se Se Se Sse Se Se Ge Se Se Ge Se Se Ge Ge Ge Fe Se Ge Se Ge Ge Ge Se Ge Se Se Ge Se Se Se Ge Be Ge Se Se ee Fe Ge Se Se Se Se Ge Se Ge Se ae 
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$ep-1984 01:28:00 AX-11 Bliss-32 V Page 8 
met 91:88:00 BASRTL.SR ReIBASV IRI 05682: 31 (3) 
'¢ 

The buffer is no longer ‘‘dirty’’, mark it so. 

CCB CLUBS$V_OUTBUF_DR} = 0; 

END; 


READ_RECORD = 1; 
END; 


14 
If necessary, read in the record containing the element we want. 


IF 4, READ_RECORD) 
THEN IN 
ccB 8 CLUBSL -LOG_RECNO] = ((, INDEX + .DESCRIP CDSCS$L_BYTEOFFJ)/K_BLOCK_LENGTH) + 1; 
GET_STATUS = SGET (RAB = CCB); 
IF .GET_STATUS EQL RMS$_CONTROLC 
PASSSSIGNAL_CTRLC (); 
'¢ 


' If we get EOF, just clear the buffer. This is compatable with 
the PDP-11. 


SOOO COOOOOOOOCOOOOOOOOOOOOOoOO 
SSS Rosse 


NOU EWN O OONOAUE WN O OONOU Sw 


IF (C.GET_STATUS EQL RMS$_EOF) OR (.GET_STATUS EQL RMS$_OK_RNF)) 

B CRABSW_USZJ, .CCB 
= .CCB CRABSL -{8F: 
= [CCB CRABSW-USZ 


CRABSL_UBF J); 


CCB CRABSW-R 
ND 
ELSE 
BEGIN 
IF _( NOT .GET_STATUS) 
BEGIN 


'¢ 
Again, worry about the RSA RMS error. 


abatatadtadadatadadablatatatatlaiabababataaaiaiabaiabaabababaiabababababad dabababababababad ad abad ab ab aad aaa 
MON 2 tt 4 M“QOOOOOOOCOOCSD 


PPAAKAAAAA AAO UIUNIUIUIUIUIE UE BW BEB BWW WWW NNW WWWWIAIIWIUPUNUNUNIW ES BS 


ee em ee ed ee ee ee ed ed ed od nd od ed 


8 WHILE (.GET_STATUS EQL RMS$_RSA) DO 
9 BEGIN 
409 0 SWAIT (RAB = .C 
410 1 GET_STATUS = $cee inns = .CCB); 
42 4 IF .GET_STATUS EQL RMS$_CONTROLC 
41 4 THEN 
414 5 BASSSSIGNAL_CTRLC (); 
415 6 
416 i END; 
418 9 IF ( NOT .GET_STATUS) THEN BASS$STOP_IO (BASSK_IOERR_REC); 


o | 


—-@ 


ne 
< 
ml 
= 
— 

a 
— 
oO 


OLE OR EEE EE Hr 4 
—_- ~ 


439 


PBX BS BE EEE PWN 
NO VOODNOUS WN O DONO UE AR “OOONOUS WN Oo 


END; 
END; 
END; 


data from it. 
i aed COSCSB_DTYPE] NEQ DSCSK_DTYPE_P 
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1o=3e8= 1382 91: g8:00 BASRTL SRETBASVIRTIO 64251 oe (3) 


CHSMOVE (,DESCRIP COSC$W_LENGTHI, 
-CCB CRABSL_RBFJ + (T.INDEX + .DESCRIP CDSCSL_BYTEOFFJ) MOD K_BLOCK_LENGTH), .VALUE) 


BEGIN 
MA 
VALUE : REF BLOCK 


DESCRIP : REF BLOCK 
AL 


COUNT; 
COUNT = .DESCRIP C 
ASHP (COUNT , DESCR 


CCB CRABSL 
. ZREF(O), VACUE 


To 


1 

Done with this 1/0 channel. 
BASSSCB_POP (); 

END; 


5A 44 4 43 
59 000000006 


(12,BYTE) 
ecBy att 


é); 


5 
4 
4 
14 
! At this point. the proper record is in the buffer, and we can copy 


end of 


OFFC 00000 ~ENTRY 


0 9E 0006 MOVAB 
0 9€ 0000 MOVAB 
E 04 00010 CLRL 


- .VALUE COSC$B_SCALEJ; 


+ DESCRIP COSCS$L_BYTEOFF 
HJ], .VALUE COSCSA_POINTER)); 


1) MOD K_BLOCK LENGTH), 


BASSSVA_FETCH 


BASSS$VIRT_I0 
\1-027\ 


BASSS$STOP, BAS$$CB_PUSH 
BAS$$CB_POP, BAS$$CB_GET 
BASSS$STOP_10, BASSSSIGNAL_CTRLC 
LIBSSTOP AkLBSMATCH_COND 


BAS$K~VIRBUF T00 
BASSK-ILLOPE, BASSK_ILLILLACC 
BAS$K~PROLOSSO 

OTS$ FATINTERR, SYSS$PUT 
SYSSQAIT, SYSSGET 


_BASSCODE,NOWRT, SHR, PIC,2 
BASSSVA FETCH, Save R2.R3.R4.R5,R6,R7,.R8,- ; 0902 
R9,R10,R1 : 
BASS$$S{GNAL TREC. R10 : 
BASSSSTOP_IO, R : 
SAVE _CC : 


4 


—@w 


sanpslessbceaedineuteliaarnoasanesnin son anetssytitoandesenesiinanaininmseinemenesitaenasente < 
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| BASSSVIRT_I0 18-56 -1984 01:28: AX-11 Bliss-32 V4.0-74 P 0 'B 
Ma 1oneee= abe Syisesce «— Laksat  bkesaaevyet lo o$e.1 age ff 1 
01846 CF OD 1 MOVAL 22$, (FP) : : 

8 Be A o6 13 MOVL DESCRIP, R7 + 0970 ; 

een Gg ta tk og fom | 

000000006 69 16 00021 JS8 BAS$$CB_PUSH : : 

6€ B D 90 7 MOVL CCB, SAVE gce + 0977 ; 

B FC AB f 002A LBS. ~=—s«=4 (ECB), T + 0979 ; 

E 006 8F 9A 000 MOVZBL #BAS$K_VIRARROPE, -(SP) : ; 

000000006 00 1 FB 000 ALLS #1, BASSS$STOP : : 

0 a | 94 00 9 1$ CPE gb«cce), + 0987 ; 

7 006 i 9A 00 F MOVZBL #BASSK_VIRARRDIS, -(SP) : ; 

6 1 €B 043 CALLS #1, BAS$$STOP_IO : F 

07 FF AB 1 gl 0046 2$ BBC 1, -1(CCB), 38 + 0993, ; 
7€ 006 8F 9A 00048 MOVZBL #BASSK ILLOpE, -(SP) : : 

69 01 FB 0004F CALLS #1, BASS$STOP_IO ; | : 

0200 &F 20 A 8} 00058 3$: CMPW 36s 32(CCB), #512 : 0999. ; 

07 13 0005 BEQL = 4$ : | F 

7E 006 8F 9A O005A MOVZBL M#BASS$K_VIRBUFTOO, -(SP) : | ; 

69 01 cB 0005€ CALLS #1, BAS$$STOP_IO F | : 

FF AB 01 88 00061 4$: BISB2 #1, -1(CCB) + 1004. : 

1— AB 01 90 00065 MOV #1. 30(CCB) ; 1008 ; 

06 AB 80 8F 88 00069 BISB2 #128, 6(CCB) : 1012. ; 

AS AB D5 0006E TSTL -92(€CB) > 1018 ; 

06 12 00071 BNEO 43=s«S$ : ; 

AG OB 0000v CF 9E 00073 MOVAB BASS$SVA_CLOSE, -92(CCB) : | : 

50 0000v CF 9E 00079 S$: MOVAB BASS$S$VA~CLOSE. RO + 1020 ; 

50 AS AB D1 0007E CMPL =92(CCBY, RO : | : 

07 13 00082 BEQL 6$ : | : 

7E 006 8F 9A 00084 MOVZBL M#BASS$K_PROLOSSOR, -(SP) ; ; 

69 01 FB 00088 CALLS #1, BASSSSTOP_I0 : | : 

58 08 AC F8 A? C1 00088 6$: ADDL3 -8(R7), INDEX? RB + 1029) : 
50 58 00000200 8F C7 00091 DIVL3 #512, RB, RO : | ; 
53 01 AO 9E 00099 MOVAB 1(ROS, RS : | ; 

53 EO AB 01 0009D CMPL © =32(CCB), R3 ; ; 

04 12 000A1 BNE 6-78 : ; 

54 D4 00083 CLRL  READ_RECORD : 1031. : 

3¢ 11 0005 BRB 13$ : : 

54 FE AB 03 €1 OO0A7 7S: BBC #3, -2(CCB), 12% : 1039. : 
5B DD SO0AC PUSHL (CCB + 1042 | ; 

000000006 99 01 FB OOAE CALLS #1, SYSSPUT : 3 

5 50 00 0008 MOVL RO. PUT STATUS : F 

00010651 &F 3¢ D1 00088 CMPL  PUT_STATUS, #67153 > 1044 : 

12 0008 BNEQ -8$ : : 

6A re 00C1 CALLS #0 BASSSSIGNAL _CTRLC > 1046 : 

35 E8 O00C4 8$: BLBS  PUT_STATUS, 11 : 1054 : 

000182DA BF 52 D1 000C7 9S: CMPL § PUT“STATUS. #99034 : 1058. : 

¢ 12 it BNEQ 10$ ; 3 

B DD 000D PUSHL (CCB > 1060 : 

000000006 00 gi FB 90002 CALLS #1, SYSS$WAIT : ; 

B DD 000D PUSHL : 1061 : 

000000006 00 gi FB 00D CALLS #1, SYS$PUT : ; 

52 DO 000E MOVL RO, PUT STATUS ; : 

00010651 8F 3 Dt OES cmPL Puf_STATUS, #67153 : 1063 ; 

6A 00 fe OEE CALLS #0, BAS$S$SIGNAL_CTRLC > 1065 : 

D4 11 O00F BRB 9$ : 1058 : 
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H 12 
BA RT 16-Sep-1984 01:28:00 AX-11 Bliss-32 V4.0-74 Page 11 
BgRyiet to 1e3e0-1984 V1iSes46  LeasRTe SReIBASvIRTI0.0%2;1 v 
6 2 E8 OOOF3 108 BLBS PUT STATUS, 11$ : 1069 
7 CE re MNEGL #1,7=(SP) : 
6 1 FB 000F CALLS #1, BAS$S$STOP_IO : 
FE AB 8 BA OOOFC 11$:  BI1CB » 22kC + 1076 
4 1 D0 1 1¢8: MOVL #1. READ RECORD + 1079 
A 4 €9 00103 13$: LBC READ _RE CORD 19$ + 1086 
EO AB 3 00 001 MOVL R3, =32(CCBS : 1089 
000000006 00 Fe botoe CArs Bi” SYSSGET Smeg 
98 50 D8 O13 MOVL RO, GET_STATUS : 
00010651 &F ‘ D} 118 CMPL  GET_STATUS, #67153 ; 1092, 
6A 09 FB Ste CALLS #0 BASSSSIGNAL GTRLC + 1094 | 
0001827A BF 6 D4 01 2 14$: CHPL ‘ { STATUS, #98938 ; 1101 
00018049 8F 56 } 90; 8 CPL GET STATUS, #98377 ; | 
20 AB 00 6E : 00 2¢ 001 4 15$ MOVCS iO” (SP), #0, 32(CCB), @36(CCB) : 1104 
28 «AB gt AB 00 0013C¢ MOVL 36(cCB), 40(CCB) + 1105) 
22. «AB 20 AB 80 aot NOV $2(CCB) , 34 (CCB) : 1106 
35 36 EB OO1G8 168: BLBS GET_STATUS, 19$ 3 1111) 
000182DA BF 56 DI 00148 178: CHL GET-STATUS, #99034 3 1118 
$8 Db 00184 PUSHL CCB : 1120. 
sonora 8 GOR ables GIRLS tg svstun bet 
1 FB 0015F CALLS #1, SYSSGET : | 
— 9? 35 50 $0146 MOVL RO, GET STATUS : | 
00010651 = &F 36 D} 00169 cMPL Ef STATUS, #67153 ; 1123 
6A 00 FB 00172 CALLS #0 BASSSSIGNAL_CTRLC > 1125, 
D4 11 0017 BRB 17$ + 1118 
06 56 £8 00177 18%:  BLBS  GET_STATUS, 19S : 1129) 
7E 01 CE O017A MNE GL . 2 (SP : 
69 01 FB 0017D CALLS #1, BAS$$STOP_IO : 
56 0c AC 00 00180 19$:  MOVL VALUE, R > 1144 
15 02 A? 91 00184 CMPB g¢R7) #21 : 1141, 
16 13 00188 BEQL 0$ : 
7E 00 58 01 7A 0018A EMUL #1, R8, #0, -(SP) > 1144, 
50 50 BE 00000200 8F 28 0018F EDIV. #512, (SP)+, RO, RO : | 
66 28 epee 7 é 0198 MOVC3 (R7). a@40(CCB)CROJ, (RO) : | 
23 1 0919 BRB 1$ > 1143, 
51 08 aA? 9 100 208:  CVTBL Btn, COUNT > 1152 
50 08 Ab $8 001A4 CvTB (R6). RO F | 
51 50 ¢ O1A8 SUBL2 RO, COUNT F | 
sf $0 3€ 00000200 i 78 00160 DIV ota UsP)s, RO, RO ty 
30 28 B20 , 6? . } 4} 0189 ASHP = COUN, (R7), @46(CCB)CROJ, #0, (RG), @4(RG) ; 1155 | 
el $8 16 tte 21$: JSB BAS$SCB_POP : 1161, 
04 0019 RET > 1162 
00 OOICA 22%: WORD poxe nothing : 0941 
00 O1CC MOVL (AP), RO : 
p 9100 MOVL  4(RO), RO : 
F 001D4 PUSHAB SAVE_CCB ; 


r 
pASSEVIRT 10 1b-eo-1986 01:28:09 yaNeIt Blisg=B2 veege74g Page 128 
QF DD 107 PUSHL #1 é 
7E o A Of Bi mova’ | fCAP). @<SP) : 
0000v CF O$ FB 001D CALLS #3, HANDLER : 
04 001 RET : 


; Routine Size: 485 bytes, Routine Base: _BASSCODE + 0000 


; 452 1163 (1 


re 


12 

BASSSVIRT_10 1b-Se -1984 01:28:0 AX-11 Bliss-32 V4.0-74 Pa 13 
bets 12-80-1382 94:88:28 BASRIL SREIBASVIRTGO. 89251 ” (4) 
> 4546 1164 1 GLOBAL ROUTINE BASSSVA_STORE ( ! Store routine 

; 4455 1165 1 DESCRIP, ! The descriptor for this virtual array 
; 4 $ 1198 1 INDEX, ! Linearized index 

3s 6 1167 1 VALUE ! Where to find item for array 

3; 4 : 1198 1 ) : NOVALUE = 

— = 116 1 

; 460 1170 1 S44 

: red 142) : FUNCTIONAL DESCRIPTION: 

; 46 1198 7! Store a value in a virtual array. Multiple bytes may be stored 

: 464 1174 1! with a single call. 

; 665 bie BE 

3 reg 11% 1 ! FORMAL PARAMETERS: 

:; 46 177 17! 

; 468 1g 1! DESCRIP.mz.r The descriptor for the virtual array 

; 469 i") 3 3 INDEX.rl.v The byte offset into the array 

; 470 1180 1! VALUE.r2z.r The place from which to fetch the value. The 

3; 471 1181 1! number of bytes to store is in the LENGTH field 

3 47 1136 1! of DESCRIP. 

3; 47 1185 1! 

3 474 1184 1°! IMPLICIT INPUTS: 

3; 475 1185 1! 

; 476 1198 1! NONE 

: 477 1187 1! 

3; 478 1188 1°! IMPLICIT OUTPUTS: 

3; 479 1189 1! 

: 480 1190 1! NONE 

: 481 1191 1°! 

; 48 1138 1 ! ROUTINE VALUE: 

: 48 1193 1 ! COMPLETION CODES: 

3; 4484 1194 1! 

; 485 1195 1! NONE 

3: 486 3198 3? 

: 487 1197 1°! SIDE EFFECTS: 

3; 488 1198 1! 

; 489 1199 1! Signals if an error is encountered. 

: 490 1200 1! 

3; 491 1201 1 !<- 

3; 49 1508 1 

; 49 120 BEGIN 

3 494 1204 

: 495 1205 

: 496 1206 DESCRIP : REF BLOCK (8, BYTE); 

3: 497 1207 

; 498 1208 GLOBAL REGISTER 

: 499 1209 CCB = K_CCB_REG : REF BLOCK C, BYTE); 

3 200 1210 

; 501 1211 BUILTIN 

3 206 1 \¢ ASHP; 

; 50 121 

: 504 1214 LOCAL é 
: 305 1215 ° ! The channel this array is defined on 
; 506 1216 LE ! Pointer to info for this array 
; 507 1217 GET_STATUS, i Last RMS GET status 

; 508 1 8 PUT’ STATUS, ' Last RMS PUT status 

: 509 121 READ_RECORD, ! 1 = we must read the record 

3; 510 1220 SAVE_CCB : VOLATILE; ' CCB to POP, or 


-o | 
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9n53 10-3601 98e i 6:46 EBASRTL-SREIBASVIRTIO.6 2:1 


14 
Establish a handler to pop the CCB on unwind. 


NABLE 
HANDLER (SAVE_CCB); 


> 4 ss ts i 


14 
} Fetch the array's channel number from its descriptor 

"CHAN = .DESCRIP CDSCS$L_LOGUNIT); 

Get a pointer to the LUB/ISB/RAB for this channel. If the channel has not 

! been opened yet, this call will allocate the LUB/ISB/RAB, but we will reject 
: it for lack of the LUBSV_OPENED bit. 


BASSSCB_PUSH (.CHAN, LUBSK_LUN_MIN); 
SAVE_CCB = .CCB; 


IF ( NOT .CCB CLUBSV_OPENED]) THEN BASSSSTOP (BASSK_VIRARROPE); 


WN “SO OONAUE WN SHO OONOUE WN 


le 

! If the channel was not opened with organization VIRTUAL, reject it 
' also catches channel 0, which is always open but never has VIRTUAL 
organization. 


. This 


a 


IF (.CCB CLUBSB_ORGAN] NEQ LUBSK_ORG_VIRTU) THEN BASSS$STOP_IO (BASS$K_VIRARRDIS); 
it this channel has been used for block 1/0, reject it. 

IF (.CCB CLUBSV_BLK_USEJ) THEN BASS$SSTOP_IO (BASSK_ILLOPE); 
at the recordsize of the file is not 512 bytes, reject it. 


IF (.CCB CRABSW_USZ] NEQ K_BLOCK_LENGTH) THEN BASS$S$STOP_IO (BAS$K_VIRBUF TOO); 


PRE QDMA AAAI & BB EEE EPI 


‘+ 
} If the file is marked read only, reject it. 


IF (.CCB CLUBSV_READ_ONLY]) THEN BASSSSTOP_IO (BASS$K_ILLILLACC); 


SHIP AP WN OODNOUE WN =O OM We 


'¢ 

Mark the LUB as being used for a virtual array. 
7 < CCB CLUB$V_VA_USE) = 1; 

74 i Record access will always be by key 


75 2 i= 
? , 6B CRABSB_RAC) = RABSC_KEY; 


o 
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3 re 1 8 ! Set the RAB so that a SGET to a non-existent record will still lock 

; $ : iB ;_that record. 

; 4 1281 _, CCB CRABSV_NXR] = 1; 

: §7 1 5 i Set the address of our CLOSE appendage in the LUB. If somebody else's 

3 a : 3 } is already there, we have a serious problem. 

; 57 1 ; 

3 7 } ? IF (.CCB CLUBSA_CLOSE] EQLA 0) THEN CCB CLUBSA_CLOSE] = BASSS$VA_CLOSE; 
; He } 9 IF (.CCB CLUBSA_CLOSE] NEQA BASSS$VA_CLOSE) THEN BASSSSTOP_IO (BASS$K_PROLOSSOR); 
: $81 1291 2 !+ 

3 266 1 38 ! If this is not the first reference to this file, we mer have to 

; 38 129 ! write out the current buffer. We will write only if the current buffer 
; 586 1294 ! is not the buffer we wish to access. LUBSL_LOG_RECNO is initialized 

3 +H : 4 to zero for virtual files. 

: 587 1599 5° 

; 208 : +s If (.CCB CLUBSL_LOG_RECNO] EQL ((. INDEX + .DESCRIP CDSCSL_BYTEOFFJ)/K_BLOCK_LENGTH) + 1) 
; $30 1856 READ_RECORD = 0 

; 9¢ 1302 S BEGIN 

: 393 1302 i we actually do the PUT only if the buffer has been changed since we last 
; 232 ; b2 ! read it, as recorded by LUBSV_OUTBUF_DR. 

; 597 1307 3 

; 598 1308 4 IF (.CCB CLUBSV_OUTBUF_DRI) 

; 599 1309 3 THEN 

; 600 1310 4 BEGIN 

3 rst : 13 2 PUT_STATUS = $PUT (RAB = .CCB); 

; $08 1318 IF .PUT_STATUS EQL RMS$_CONTROLC 

; 604 1314 4 HEN 

3; 605 1315 4 BASSSSIGNAL_CTRLC (); 

BE. 

; 608 1318 4 | If the PUT fails, we must worry about the RSA error, which can happen if 
; 609 1319 4 ! we are running at AST level, and the AST interrupted some RMS 1/0. If 

r) e190 1331 2 we get this error, wait for it to go away. Any other RMS error is fatal. 
: 61 1 ‘2 

H g18 ie 5 IF ( NOT .PUT_STATUS) 

3 614 1324 4 THEN 

3 oF : 5 ; BEGIN 

F $19 1359 WHILE (.PUT_STATUS EQL RMS$_RSA) DO 

3 O18 1328 6 BEGIN 

3 66 1329 6 SWAIT (RAB = .CCB); 

; 6 9 1 9 6 PUT_STATUS = $PUT (RAB = .CCB); 

; 622 133¢ 6 IF .PUT_STATUS EQL RMS$_CONTROLC 

> 626 1 6 BASSSSIGNAL_CTRLC (); 


—m 
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55) 1ergee=13be 94:88:88 = FeNsat sae ieasvintco o$2;1 29F a) 
3 5 1335 

: $66 ! END; 

3 : 3 } 8 IF ( NOT .PUT_STATUS) THEN BASSSSTOP_IO (BASSK_IOERR_REC); 

: $30 1340 4 END; 
: 6 ; 1 é 4 14 
; ° ! ? ? The buffer is no longer “‘dirty’’, mark it so. 

: 635 1345 4 CCB CLUBSV_OUTBUF_DRI = 0; 

; 2 18c9 _ 
; 6 1348 READ_RECORD = 1; 

s 63 1349 END; 

fen ae 
3 on§ ; 5 If necessary, read in the record containing the element we want. 
: 664 1354 2 
3 645 1355 IF _(.READ_RECORD) 
3 o*8 1 28 THEN 
; 64 135 BEGIN 
; 6468 1358 CCB CLUBSL_LOG_RECNO] = ((. INDEX + .DESCRIP CDSCSL_BYTEOFFJ)/K_BLOCK_LENGTH) + 1; 
3 4 : 23 GET_STATUS = $GET (RAB = .CCB); 
; 631 1361 If _.GET_STATUS EQL RMSS_CONTROLC 
; 638 1368 BASSSSIGNAL_CTRLC (); 
: 654 1364 
; 655 1365 '¢ 
3 $26 1367 If we are at EOF, extend the file. This is compatable with the PDP-11. 
: 658 1368 3 
: +44 139) 3 oe EQL RMS$_EOF) OR (.GET_STATUS EQL RMS$_OK_RNF)) 
: 661 1371 4 BEGIN 
iG M 
> 664 1374 4 FAB BLOCK : $FAB_DECL, 
3; 665 1375 4 EXTEND_STATUS; 
it. 
; 668 1378 4 | If the file is already allocated beyond the current end-of-file point 

3; 669 1379 4 ! (which can happen on disk if the cluster size is greater than 1) then 

; 670 1380 4 ! do not do any allocation. 
i 8h) 1382 6 
> 67 1 : 5 IF (.CCB CLUBSL_LOG_RECNO] GTR .CCB CLUBSL_REC_MAX]) 

: 674 1384 4 THEN 
; 675 1385 1}? iy 
; 676 1 $ FAB_INIT (FAB = FAB_BLOCK); 

, oF 1 FAB_BLOCK pEABSL ALO] = -ccB LUB$L_LOG_RECNO] = .CCB CLUBSL_REC_MAX); 
; 678 1 FAB-BLOCK CFABSW-IFIJ = .CCB CLUBSW~IFIT; 

; 67 1389 ccB a teat = he Best 

3; 680 1 CCB CRABSL_STSJ = SS$_NORMAL; 

; 681 1591 EXTEND_STATUS = SEXTERD (FAB = FAB_BLOCK); 


ibe PY Oe Tee TOE ae TR ee es J 


N 
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H 139 
; 34 IF ( NOT EXTEND STATUS) THEN BASSSSTOP_IO (BASSK_IOERR_REC); 
: 685 1395 CCB CLUBSL_REC_MAX] = .CCB CLUBSL_REC_MAX] * .FAB_BLOCK CFABSL_ALQ]; 
; 1 96 CCB CLUBSA_FABJ = 0; i 
3 : ; 2 END; i 
: 689 1 3 4 '6 
; 690 1209 4 ! Since we did not really read a record, make sure the buffer contains : 
3 $3) 138 2 : all zeros. i 
; 69 14 4 CHSFILL (0, 36 B CRABSW usz). .CCB CRABSL_UBF); 
; 694 1404 4 CCB CRARS$W/RSZ7) = .CCB CRABSW_USZ); 
; 695 14 5 4 cc RABSL“RBF) = .CCB CRABSL UBF); 
: §3° 1209 3 ELSE 
; 698 1408 4 BEGIN 
; $30 1410 § IF ( NOT .GET_STATUS) 
; 701 1411 & i 
me oe E,, ser : 
3 704 1414 5 | Again, worry about the RSA RMS error. 
; 205 1415 ie 
: 10 1419 WHILE (.GET_STATUS EQL RMS$_RSA) DO i 
; 708 1213 6 BEGIN F 
: 709 1419 6 SWAIT (RAB = .CCB); : 
3 19 1631 6 GET_STATUS = $GET (RAB = .CCB); 
; 212 1422 & IF .GET_STATUS EQL RMS$_CONTROLC 
; 71 1423 6 THEN ; 
> 714 1424 6 BASSSSIGNAL_CTRLC (); ; 
; 715 1425 i 
: FS 1459 say | 
; 8 14 2 3 IF ( NOT .GET_STATUS) THEN BAS$SSTOP_IO (BASSK_IOERR_REC); | 
: 720 1430 4 END; 
: 9s 1232 3 END 
2 5 14 § ; 
> 726 14 END; i 
Bm eS. 2 
: 727 1439 i at this point, the proper record is in the buffer, and we can copy 
g i : 1o38 data to it. 
; 730 1440 IF ,DESCRIP CDSC$B_DTYPE) NEQ DSC$K_DTYPE_P 
: 7 144 CHSMOVE (.DESCRIP CDSC$W_LENGTH], .VALUE 
; 738 1448 CCB CRABSL_RBF) + (T.INDEX + .DESCRIP COSCSL_BYTEOFF)) MOD K_BLOCK_LENGTH)) 
me ee 2 
: 73 1209 DESCRIP : REF BLOCK 12 ey1E), 
: 738 1448 VALUE : REF BLOCK (12,BYTE); 


r 


--——--- —— - i —————— 
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1-027 12-8 08- 1 3be 91:88:08 YBASRTL SRE BASVIRTIO 882;1 . 3 
: 739 1449 LOCAL 
: ry 1284 COUNT Un sue CDSC$B_SCALE] ESCRIP CDSC$B_SCALEJ 
° =. L ss ALEJ; 
s 76 1438 ASHP (COUNT, VALUE CDSC$w EeNGTHS < 
5 7 145 - VALUE fDSCSA_POINTERT, %REF(O), DESCRIP CDSC$W_LENGTHI, 
3 oe 1e28 _ «CCB RABSL_RBFJ + (CLENDEX # .OESCRIP COSC$L_BYTEOFFJ) MOD K_BLOCK_LENGTH)); 
: 746 1456 1+ : 
s 767 1457 ! Since the buffer differs from the disk, mark it ‘‘dirty’’ so it will be 
: 748 1458 ' written out. 
: 749 1459 in 
: 750 1460 CCB CLUBSV_OUTBUF_DRJ = 1; 
; 751 1461 ! 
3 £36 1086 ! Done with this 1/0 channel. 
: 75 146 ie 
: 754 1464 2 BASS$SCB_POP (); 
3 v5 1465 1 END; ! end of BASS$$VA_STORE 
.EXTRN SYSSEXTEND 
OFFC 00000 .ENTRY BASSSVA STORE, Save R2,R3,R4,R5,R6,R7,R8,- ; 1164 
5A 000000006 00 9€ 00002 MOVAB BASS$$STOP_IO, R10 : 
5E AC AE 9E 00009 MOVAB =-84(SP), SP ; 
50 AE D4 00000 CLRL  SAVE_CCB : 1203) 
6D 0222 CF DE 00010 MOVAL 26%, (FP) : 
57 04 AC DO 00015 OVL DESCRIP, R7 + 1232) 
52 FC A? DO 00019 MOVL  =4(R7), CHAN : 
50 D4 0001D CLRL ~=—s_ RO : 1238) 
000006006 00 16 0001F JSB BASS$$CB_PUSH ; 
50 AE 5B DO 00025 MOVL CCB, SAVE CCB : 1239) 
0B FC AB EB 00029 BLBS -4(CCB), t 1241 | 
7E 006 8F 9A 00020 MOVZBL M#BASS$K_VIRARROPE, -(SP) : 
000000006 00 01 FB 00031 CALLS #1, BASS$S$STOP : 
05 C4 AB 91 00038 18: CMPB ss =60(CCB), #5 : 1249 | 
07 13 9005¢ BEQL $ : 
7E 006 8F 9A 9003 MOVZBL M#BASSK_VIRARRDIS, -(SP) ; | 
6A 01 FB 0004 CALLS #1, BASS$STOP_IO ; 
58 FE AB 9E 00045 2$: MOVAB -2(CCB), R8 : 1255) 
07 68 09 gt 00049 BBC #9, (RBS, 3$ ; | 
7E 006 8F 9A 00040 MOVZBL #BASSK_ILLOPE, -(SP) : 
A 01 FB 00051 CALLS #1, BASSSSTOP_ ; | 
0200 8F 20 AB Bi 00054 38: CMPW 30s 32¢CCB), #512 > 1261 | 
07 13 OO05A BEQL «64S : 
7E 006 8F 9A 0005C¢ MOVZBL #BAS$K_VIRBUFTOO, -(SP) : 
6A 01 FB 90060 CALLS #1, BAS$$STOP_IO : | 
07 FC AB 02 EI 00063 4$: BBC #2, -4(CCB), 5$ > 1267. 
7E 006 8F 9A 00068 MOVZBL #BASSK_ILLILLACC, -(SP) : 
6A 1 FB 0006C CALLS #1, BASS$STOP_IO : | 
01 «AB 1 88 OO6F 5$: BISB2 #1. 1(R8) : 1272 | 
1—E AB 1 90 0073 MOVE. #1. 30(CCB) > 1276. 
06 AB 80 8F 8B 07 BISB2 #138 6(CCB) > 1281. 
AG AB DS 0007C TSTL  =92(ECB) > 1287 | 
06 12 0007F BNEQ 6$ : | 
AG sOAB O000v CF 9E 00081 MOVAB BAS$S$VA_CLOSE, -92(CCB) : 
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BASSSVIRT_10 18-Sep-1984 01: 8:00 yax=11 Bliss-32 V4 0-748 Page 19 
1-027 14-Sep-1984 11:56:46 BASRTL. SRC JBASVIRT1I0.832;1 (4) 
50 0000v CF oF 0087 6$: MOVAB BASSSVA CLOSE, RO : 1289 
0 AS ag 8 6 sear -92(CCBY, RO r 
7E 006 BF 9A 0009 MOVZBL #BAS$K_PROLOSSOR, -(SP) : 
6A 1 FB 0096 CALLS. #1, BASSSSTOP_ID : 
59 08 Ac FB A? C1 00099 7$ ADDL3 © =B(R7) INDEX; RO > 1298 
“ 8F ltl RD SE OOOAy pivis a2ie fo 
33 E0 AB p} Bong cMPL age (te). R3 ; | 
4 bs 081 CLRL READ_RECORD + 1300. 
5B 68 8 Ei Mie 8$ BBC #3, (RB), 13$ + 1308 
58 DD 00089 PUSHL (CCB + 1311 
000000006 00 01 FB 000B CALLS #1, SYSS$PUT : 
52 50 DO G0ac¢ MOVL RO. PUT_STATUS ; | 
00010651 BF 32 D} 900¢3 cMPL put STATUS, #67153 ; 1313, 
000000006 00 60 FB OO0CE CALLS #0, BAS$SSIGNAL_CTRLC > 1315 
39 52 £8 000D BLBS § PUT_STATUS, 12$ t 1323) 
000182cA BF 32 DI 00008 10$ cHPL PUT-STATUS, #99034 ; 1327, 
5B DD OO0E1 PUSHL CCB ; 1329) 
000000006 00 01 FB O00E3 CALLS #1, SYS$WAIT : 
5B DD OOOEA PUSHL CCB : 1330. 
000000006 00 01 FB OOOEC CALLS #1, SYS$PUT : 
52 50 DO O00F3 MOVL RO, PUT_STATUS : 
00010651 = &F 32 Dt 000F6 CMPL Put STATUS, #67153 : 1332, 
000000006 00 00 Fe O00FF CALLS #0, BASSSSIGNAL_CTRLC 1334 
06 52 €8 00108 11$:  BLBS | PUT_STATUS, 12$ : 1338) 
7E 01 CE 00108 MNEGL #1,7-(SP : 
6A 01 FB 0010E CALLS #1. BAS$S$STOP_I0 : 
68 08 8A 00111 2 BICB2 «#8. + 1345) 
54 01 00 00114 13$ MOVL #1, READ_RECORD > 1348 
03 54 Es 00117 BLBS READ_RECORD. 15$ + 1355 
006 1 011A BRW $ : 
EO AB 53 D0 0011D 15$:  MOVL 3, -32(CCB) : 1358 | 
5B DD 00121 PUSHL 8 : 1359 
000000006 00 01 FB 00125 CALLS #1, SYSS$GET : 
56 50 DO OO12A MOVL RO, GET_STATUS ; | 
00010651 FF i D} ab cHPL onsen #67153 ; 1361 
0 FB 00136 CALLS #0, BASSSSIGNAL_CTRLC + 1363 
itt ate 9? 36 o| 9013p 16$: CPL GEf STATUS, WORDS ; 1369 
00018049 8F 26 pi 90146 CHPL ee #98377 ; 
E46 AB £0 AB p] Oar 17$: cHPL 73g (CCB). -28(CCB) 1383 | 
0050 = 8F 00 6E 00 2c 0156 MOVCS #0, (SP), #0, #80, SRMS_PTR 1386. 
6E 5003 BF 80 O15 MOVW #20483, SRMS_PTR ; 
it a i a ; 
10 AE E0 E46 AB 3 00168 SUBL3 -28(CCB)> -32(CCB), FAB_BLOCK+16 : 1387. 
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Routine Base: _BASSCODE + O01E5 


593 bytes, 


; Routine Size: 


j 
| 
| BASSSVIRT_IO 16-Sep-1984 01: AX-11 Bliss-32 V Page 22 
1-62 1ezgeb71382 94:88 :2 BASRTL SRE IBASVIRI G0. 69251 oe 8 

: 757 1466 1 GLOBAL ROUTINE BASSSWHOLE_VA_FETCH ( ' Fetch routine 

s 758 1467 1 DESCRIP, ' The descriptor for this virtual array 

; 759 1208 1 VALU ! Where to store array item 

; 760 166 1 ) : NOVALUE = 

; 761 1470 1 

s 7% 1471 1 !44 

s 76 Vale 1 ! FUNCTIONAL DESCRIPTION: 

; 764 1473 1! 

s 765 1474 1! Fetch all values from a virtual array. 

; 766 1475 1! 

s 767 1078 1 ! FORMAL PARAMETERS: 

; 768 1477 1! 

: 769 1478 1! DESCRIP.mz.r The descriptor for the virtual array 

; 770 1479 1! VALUE .wz.r Address of the Ist location Re pth 

: 771 1480 1! the values. The number of byt 

Pl ae 1481 1! to store is in the LENGTH field. of 

: 77 1086 1! DESCRIP 

: 774 1483 1! 

; 775 1484 1 ! IMPLICIT INPUTS: 

; 776 1485 1! 

. wer 1486 1! NONE 

; 778 1487 1! 

; 779 1488 1°! IMPLICIT OUTPUTS: 

; 780 1489 1! 

; 781 1490 1! NONE 

s 1491 1! 

; 78 1eu6 1 ! ROUTINE VALUE: 

3; 786 149 1 ! COMPLETION CODES: 

3 7385 1494 1! 

: 786 1495 1! NONE 

3; 787 1496 1! 

; 788 1497 1 ! SIDE EFFECTS: 

3; 789 1498 1! 

; 790 1499 1! Signals if an error is encountered. 

; 791 1500 1! 

: 79 1501 1 !=- 

; 79 1502 1 

3; 794 1503 2 BEGIN 

; 795 1504 

3; 796 1505 P 

3; 797 1506 DESCRIP : REF BLOCK (8, BYTE); 

; 798 1507 

; 799 1508 GLOBAL REGISTER 

; 800 1509 CCB = K_CCB_REG : REF BLOCK C, BYTE); 

; 801 1510 

3; 802 1511 LOCAL : 

; 803 1216 CHAN, ' The channel this array. is defined on 

3; 804 151 HANDLE, ' Pointer to info for this array 

; 805 1514 GET_STATUS, ' Last RMS GET status 

; 806 1515 DEST, ! Updated VALUE 

; 807 1316 LEN, ' Number of bytes to move 

; 808 151 REMAINING BYTES ' Number of bytes left to move 

; 809 1518 SAVE_CCB : VOLATILE, i CCB to POP, or zero. 

; 810 1519 PuT_STATUS; i status retd by RMS $PUT 

3 eli 1330 

: aig 1521 '¢ 

3 61 1522 i Establish a handler to pop the CCB when unwinding. 


—_—_ ietelanpcmadiate 


co 
~ 


mn CHAN = .DESCRIP CDSCSL_LOGUNITI; 


; i Get a pointer to the LUB/ISB/RAB for this channel. If the channel has not 


oo 
> 
_ 


! been opened yet, this call will allocate the LUB/ISB/RAB, but we will reject 
} it for lack of the LUBSV_OPENED bit. 


BASSS$CB_PUSH (.CHAN, LUBSK_LUN_MIN); 
SAVE_CCB = .CCB; 


IF ( NOT .CCB CLUBSV_OPENEDJ) THEN BASSS$STOP (BASSK_VIRARROPE) ; 


oo 
= 


OUSWN—OVOOnOu 


'¢ 
! If the channel was not opened with organization VIRTUAL, reject it. This 
' also catches channel 0, which is always open but never has VIRTUAL 


13 
BASSSVIRT_10 1S-se -1984 01:28:00 AX-11 Bliss-32 V4.0-74 Page 23 
1-027 1a-Sep-19 4 91 98:08 BASRTL’ SREIBASVIRT GO. 62:1 . (33 
14 3 - 
15 4 
1 5 ENABLE 
1 $ HANDLER (SAVE_CCB); 
Hs ar 
820 9 i DEST is initially the same as VALUE, but will be updated as blocks 
as ? of 512 bytes are moved. 
es 3 
824 DEST = .VALUE; 
856 8 $4 
827 6 ! Block #1 may not be entirely this array. Initialize REMAINING_BYTES 
828 7 ' to 512 minus whatever offset there is. 
i Bh 
oe! ? 4 (.DESCRIP CDOSCSL_ARSIZE] + .DESCRIP COSCS$L_BYTEOFFJ) LSS K_BLOCK_LENGTH 
B35 ; as REMAINING _BYTES = .DESCRIP COSCSL_ARSIZEJ 
tH : REMAINING_BYTES = K_BLOCK_LENGTH = .DESCRIP CDSCSL_BYTEOFFI; 
837 6 '¢ 
See 4 Fetch the array’s channel number from its descriptor 
0 9 j 
0 
4 
5 
6 
7 
8 
9 
0 
4 
5 


Be Be Se Se Be Se Se Se Se Se Se Oe Ge Be Fe Ge Se Se Fe Se Se Se Se Ge Fe Se Ge Ge Fe Se Se Ge Se Ge Se Se Se Se Se SHS Se Se Se SH Se Ge Se Se ee Se Se Se Se Setee 
(9 Go CO G9 Cd Cd Os CD CS Go OD CD CO 4 
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5 

2 } organization. 

; ! 

4 e IF (.CCB CLUBSB_ORGAN] NEQ LUBSK_ORG_VIRTU) THEN BASSS$STOP_IO (BASSK_VIRARRDIS); 
59 68 '¢ ; 
ne? +4 If this channel has been used for block 1/0, reject it. 
86 71 ; 
Rez % IF (.CCB CLUBSV_BLK_USEJ) THEN BASS$S$STOP_IO (BASSK_ILLOPE); 
865 74 '¢ : 

B66 76 : If the record size declared for the file is not 512 bytes, reject it. 

68 7 ? 

Bes % IF (.CCB CRABSW_USZ] NEQ K_BLOCK_LENGTH) THEN BASS$SSTOP_10 (BASSK_VIRBUF TOO); 


umm 


j H 13 
BASSSVIRT_I0 16-Sep-1984 01:28:00 _-VAX=11 Bliss-32 v4.0-74 p é 
mitt, 1exgee-1 98s 94:88:00 = 0. b8231 age $3 


BASSSSIGNAL_CTRLC (); 


END; 
IF (NOT .PUT_STATUS) THEN BASS$$STOP_IO (BASSK_IOERR_REC); 
CCB FLUésv_ouTBUF_pR = 0; 
END; 
END; 


2 BASRTL.SRCIJBASVIRT 
: 871 1580 ‘+ 
3 } 1 Mark the LUB as being used for a virtual array. 
; a : § ,, =o CLUBSV_VA_USE] = 1; 
3 4 } 5 } Record access will always be by key 
3 578 1387 ,, £8 CRABSB_RAC] = RABSC_KEY; 
; ret 1288 } Mark the RAB so that a $SGET to a non-existent record will still lock it. 
; «88 133) CCB CRABSV_NXR) = 1; 
; 88 1 4 te 
> 884 159 ! Set the address of our CLOSE appendage in the LUB. If somebody else's 
; 885 1594 ! is already there, we have a serious problem. 
; Bae 1396 3 
; 3 HF 344 IF (.CCB CLUBSA_CLOSE] EQLA 0) THEN CCB CLUBSA_CLOSE] = BASS$VA_CLOSE; 
3 344 13% IF (.CCB CLUBSA_CLOSE] NEQA BASS$VA_CLOSE) THEN BASS$S$STOP_IO (BAS$K_PROLOSSOR); 
; 8 1601 '¢ ; 
; 89 4 ! If this is not the first reference to the file, we may have to write out 
3; 894 160 ' the current buffer. 
: 895 1604 !- 
; 896 1605 
; 897 1606 IF .CCB CLUBSL_LOG_RECNO) NEQ 0 
> 898 1607 THEN 
; 899 1608 BEGIN 
: 900 1609 4 IF (.CCB CLUBSV_OUTBUF_DR)) ! buffer has been changed 
; 901 1610 3 THEN 
; 1611 4 BEGIN 
:; 90 1el¢ 4 PUT_STATUS = S$PUT (RAB = .CCB); 
; 904 1613 4 
; 905 1614 4 IF .PUT_STATUS EQL RMS$_CONTROLC 
; 906 1615 4 
; 907 1616 4 BASSSSIGNAL_CTRLC (); 
; 908 1617 & 
; 909 1618 5 IF (NOT .PUT_STATUS) 
3 1619 4 THEN 
3 1o59 5 BEGIN 
; 1621 § WHILE (.PUT_STATUS EQL RMS$_RSA) DO 
; 16 § 6 BEGIN 
3 16 6 $WAIT (RAB = .CCB); 
3 + : ° PUT_STATUS = S$PUT (RAB = .CCB); 
; 1626 6 IF .PUT_STATUS EQL RMS$_CONTROLC 
: 1627 6 THEN 
: 1628 6 
3 1629 
; 16350 
3 1631 
: 16 § 4 
3 16 4 
3 1634 
: 1635 
: 1636 


NOUSWN “OC OONOUEWN Oo 
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BASSSVIRT_I1O rhe -1984 01:28:00 AX-11 Bliss-32 V4.0-74 Page 25 
BASS 1e-8ep-19 4 te 6:46 EBASRTL SRC IBASV RT10.832;1 . (33 
: 388 1638  tolanlane Wn mater UE thedks th the wivtenl d loop through 

3 ' Calculate the number o ocks in the virtual array and loop throu 

; 950 16 § ! all of them. . : ° 
BO ag 8 be 

3 : 1066 INCR SL ECT FROM 1 TO ((.DESCRIP COSCSL_BYTEOFF] + .DESCRIP CDSCSL_ARSIZEJ)/512 + 1) DO 
; 935 1644 CCB CLUBSL_LOG_RECNO] = .BLKCNT; 

; 338 bo GET_STATUS = SGET (RAB = .CCB); 

; 938 16c9 IF .GET_STATUS EQL RMS$_CONTROLC 

; 939 1648 THEN 

; 940 1649 BASSSSIGNAL_CTRLC (); 

: 941 1650 

; Bee 1651 '¢ 

; 94 1036 ' If we get EOF, just clear the buffer. This is compatable with 

3 944 165 ' the PDP-11. 

: 945 1654 te 

; 946 1655 

3 947 1656 4 IF ((.GET_STATUS EQL RMS$_EOF) OR (.GET_STATUS EQL RMS$_OK_RNF)) 
: 948 1657 3 THEN 

>; 949 1658 4 BEGIN 

; 950 1659 4 CHSFILL (0, .CCB CRABSW_USZ], .CCB CRABSL_UBFI); 

; 951 1660 4 CCB TRABSL_RBF J = .CCB CRABSL_UBFJ; 

3 928 1661 4 CCB CRABSW_RSZ) = .CCB CRABSW_USZ]; 

; 95 1096 4 END 

: 954 16635 3 ELSE 

; 955 1664 4 BEGIN 

; 956 1665 4 

; 957 1666 5 IF ( NOT .GET_STATUS) 

; 958 1667 4 

3; 959 1668 5 BEGIN 

: 960 1669 5 !4 

: 961 1670 5 ! Again, worry about the RSA RMS error. 

; 206 1671 5 !- 

: 1076 5 

: 964 1673 § WHILE (.GET_STATUS EQL RMS$_RSA) DO 

; 965 1674 6 BEGIN 

; 966 1675 6 SWAIT (RAB = .CCB); 

: 967 1676 6 GET_STATUS = SGET (RAB = .CCB); 

3; 968 1677 6 

3; 969 1678 6 IF .GET_STATUS EQL RMS$_CONTROLC 

: 970 1679 6 THEN 

; 971 1089 6 BASSSSIGNAL_CTRLC (); 

3 376 1681 

: 97 1086 END; 

3 974 168 

; 975 1684 5 IF ( NOT .GET_STATUS) THEN BASS$STOP_IO (BASS$K_IOERR_REC); 
; 976 198? 5 

: 977 1686 4 END; 

; 978 1687 4 

; 979 1688 END; 

; 980 1689 

; «981 1690 '¢ ; ; . 

; 3a6 1691 ! Copy the 512 byte buffer to the desired 49 ation. If this is the last 
5 + $4 1696 buffer (or the first), there may not be 512 bytes so check for this. 


o | 
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J 13 

| BASSSVIRT_I0 16- ep-1984 01: AX-11 Bliss-32 V4.0-7 
RASS 1h- Hatt 41 ta BASRTL SRE IBASVIRT IO. B42: 1 

: 38? 183¢ LEN = MIN (K_BLOCK_LENGTH, . REMAINING BYTES); 

Ps = P; 

3 389 1696 CHSMOVE (.LER, (.C 6 TRABSL. _RBFJ + Fae BLKCNT EQL 1 

; 988 169 THEN .DESCRIP CDSCSL_BYTEOFFJ 

: 989 1698 ELSE 0)), .DEST); 

; 990 1 DEST DEST N; 

: 931 1700 REMAINING “BYTES” Y “REMAINING BYTES - .LEN; 

3k 1706 END; ! loop through all blocks in v.a. 

; 995 1704 '¢ 

; 238 1703 ; _Done with this 1/0 channel. 

: 998 1509 BASSS$CB_POP (); 

: 999 1708 END; ! end of BASSSWHOLE_VA_FETCH 


OFFC 00000 
5E 08 C2 00002 
04 AE 04 00005 
6D O1EA CF DE 00008 
08 AC DD 00000 
57 04 AC 00 00010 
50 OC A? F8 A? C1 00014 
00000200 =8F 50 D1 QOO1A 
18 00021 
56 0c A? D0 00023 
09 11 00027 
56 00000200 8F F8 A? C3 00029 18: 
52 FC A? DO 000352 2$: 
50 04 00036 
000000006 00 16 00038 
08 AE 3B 00 4 
08 FC AB ge 0004 
7E 00G 8F 9A 00046 
000000006 00 01 FB QO04A 
05 C4 AB 91 00051 3$: 
0B 13 00055 
7E 00G 8F 9A 00057 
000000006 00 1 4 005 
FF AB 1 3 0062 4$: 
7E 00G 8F 9A 0006 
000000006 00 1 FB B08 
0200 =8F 20 AB Bi 00072 5$: 
ge 13 0007 
7E 00G 8F 9A QOO7A 
000000006 00 1 fe it 
FF =AB 1 88 00085 6$ 
1€ AB 1 90 00089 
06 AB 80 F 88 000 
AS AB ? 009 
06 009 
AS AB 0000v CF 9€ 00097 


ENTRY BAS S$SWHOLE_VA_FETCH, Save R2,R3,R4.R5,R6,= 
R7,R8,R9,RTO,R11 

SUBL2 #8. 

CLRL = SAVE £08, 
MOVAL 235 (FP 
PUSHL 
MOVL DESCRI 
ADDL3 -8(R7) “1 8tR7), RO 
CMPL : ave 
BGEG 
MOVL 12(R7), REMAINING_BYTES 
SUBL3. -8(R7), W512, REMAINING_BYTES 
MOVE =4(R7). CHAN 

CLRL RO 
JSB BAS$$CB_PUSH 
MOVL CCB, SAVE CCB 

LBS =s_s« = 4 (ECB), 
MOVZBL M#BAS$K_VIRARROPE, -(SP) 
CALLS #1 BASSSS10P 

CAPE -6 7gb«ce 
MOV ZBL HEASSK VIRARRDIS, -(SP) 
CALLS Po 0 
MOVZBL ne Asdi3t0 10 -(SP) 
CALLS #1 “BAS $5108 

CMPW 36s 32¢CCB), #5127 

EQL $ 
MOVZBL M#BASS$K_VIRBUFTOO, -(SP) 
CALLS #1, BAS$$STOP_IO 
BI1SB 1; =1(CCB) 
MOVB 1° 30(CCB) 
BISB2 128 6(CCB) 

TSTL 92( CB) 
BNEO 

MOVAB BASSS$VA_CLOSE, -92(CCB) 
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BASSSVIRT_10 16-Sep-1984 01:28:00 AX-11 Bliss-32 V4.0-74 
wet 18-308- 1382 o138 :46 YBASRTL  SRe BAeviniso 68251 
50 0000v CF 9E 00090 7$: MOVAB BASSSVA CLOSE, RO 
AG) OAB p A2 CMPL =92(CCBY, R 
| 7 006 er 9A AB ROVIBL #BASS$K_PROLOSSOR, -(SP) 
000000006 6 1 FB 00 AC CALLS #1, BAS$SSTOP_IO- 
£0 A 2 0 B3 8$: TSTL  -32(CCB) 
6 B BEQL 
60 FE AB Q E1 0008 BBC #3, -2(CCB), 13$ 
B DD 000BD PUSHL 8 
000000006 0 1 FB O08 CALLS #1, SYSSPUT 
§ dO 000¢ MOVL RO, PUT STATUS 
00010651 FF D} 90¢9 cMPL PUT_STATUS, #67153 
000000006 90 g FB 9008 CALLS #0, BASS$SSIGNAL_CTRLC 
EB 00009 9$: BLBS = PUT_STATUS, 
000182DA 8 52 D1 9000C 10$:  CMPL = PUTSTATUS. #99034 
. 12 O00E BNEG «118 
B DD O00E PUSHL (CCB 
000000006 00 01 FB 000E7 CALLS #1, SYSSWAIT 
5B DD OO00E PUSHL (CCB 
000000006 00 01 FB OOOF CALLS #1, SYSSPUT 
2 50 DO O00F MOVL RO, PUT STATUS 
00010651 8F 52 01 OOOFA CMPL  PUT_STATUS, #67153 
D9 12 00101 NEQ $ 
000000006 00 00 FB 00103 CALLS #0, BAS$S$SIGNAL_CTRLC 
09 11 0010A BRB 10$ 
OA 52 €8 0010C 11$:  BLBS = PUT_STATUS, 12$ 
7E 01 CE 0010F MNEGL #1,7=(S 
000000006 00 01 FB 00112 CALLS #1, BAS$S$STOP_IO 
FE AB 08 8A 0011 128: BI CB¢ #8, -2(CCB 
50 FB OA? OC A? C1 0011D 13$: ADDL3 12(R7), -8(R7), RO 
50 00000200 BF (6 00125 DIVL2 @# 
04 AE 01 AO GE 0012A MOVAB 1(ROS, 4(SP) 
59 ps4 O1¢F CLRL BLKCNT 
0084 31 001 1 BRW 
EO AB 59 D0 00134 14$:  MOVL  BLKCNT, -32(CCB) 
5B DD 00138 PUSHL CCB 
000000006 00 01 FB 0013A CALLS #1, SYSS$GET 
58 50 pO 00141 OVL RO, GET STATUS 
00010651 &F 58 1 00144 CMPL  GET_STATUS, #67153 
07 12 00148 BNEQ 
000000006 00 00 FB 0014D CALLS #0, BASS$SSIGNAL CTRLC 
0001827A = 8F 58 0100154 15$:  CMPL -GET_STATUS, #98938 
09 13 6 138 BEQL 16$ 
00018049 8F 8 D1 0015D CMPL GET STATUS, #98377 
14 12 00164 BNEQ 17% 
20 AB 00 6E - 00 2c 00166 16$:  MOVCS #0, (SP), #0, 32(CCB), a36(CCB) 
28 «AB 34 AB DO Doge MOVIL. 3g(ccB), 40(CCB) 
22 «AB 0 AB B80 001 MOV (CCB), 34(CCB) 
40 11 00178 BRB 20 
3D 58 €8 0017A 17$:  BLBS GET_STATUS, 208 
000182DA BF 5 DI O17 18$:  CMPL GET-STATUS, #99034 
: 2 001 BNEQ 198 
B DD 001 PUSHL CCB 
000000006 00 on FB 001 CALLS #1, SYSSWAIT 
B DD 0018F PUSHL CCB 


-o | 


— 


—@w 


| 
13 
BASSSVIRT_IO 1$- Sep-1984 01:28:0 AX-11 Bliss-32 Pa 8 
bet 1228ep-1986 11:56:46 — EBASRIL SRE BASVIRTIO.B9251 oe 8 
| conus 9) 58 881g SAS Ade SEE : 
| . 
00010651 33 D} 198 cMPL oe Sharis. 907153 : 1678 
| 000000006 0 re 1AG CALLS BASS$SIGNAL_CTRLC : 1680 
p 1 1AB BRB : 167 
| OA E8 OO1AD 19S BLBS G ' -STATUS, 208 + 1684. 
1 CE 0180 MNEGL =(SP) : 
| wares 5 Ob SIR aos: fait AesalutneSovTe2” E o9s 
00000200 &F p 18D CMPL el ; 
5 001¢4 BLE F 
30 0200 ah g1c6 MOVZWL git, RO 3 
01 9 D1 OOICE CMPL KCNT, #1 + 1696 
06 if 0101 BNEQ F 
50 FB OA? CO 013 MOVL =8(R7), RO + 1697. 
98 11 001D BRB : 
5 bs 00109 28: CLRL_ RO + 1696 | 
00 BE 28 8840 5A 28 91D $: MOvC3 LEN, 940(CCB) CROJ, aDesT : 1698 
6E 3A CO OO1E ADDLg > 1699 
6 A C2 COlE SUBL TEN’ REMAINING BYTES : 1700. 
FFGS 59 01 06 AE F ooies 24$ ACBL ESP). LKUNT, 14$ > 1642 | 
000000006 00 16 OO1EF JSB8 BASSSCB. : 1707 | 
04 001F5S RET : 1708 
0000 001F6 25$ «WORD Save eal 3: 1503) 
50 08 aC DO 001F8 MOVL (AP), : 
50 04 Ad DO O01FC MOVL  4(RO). RO : 
FC AO OF 99200 PUSHAB SAVE_CC : 
01 DD 0020 PUSHL #1 : 
5E bp 00205 PUSHL SP F 
7E 06 AC 7D 00207 MOVO 4 (AP), -(SP) F 
0000v CF 03 FB 00208 CALLS #3, HANDLER : 
04 00210 RET F 


; Routine Size: 529 bytes, Routine Base: _BASSCODE + 0436 


: 1000 1709 1 


woo ern 


De Se Oe Se Oe BH Se Bs Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Se Se Se Se Se Se Se Se SH Se Fe Se Se Se Se Se Se Se Se Se Se areee te Sear 


o | 
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16-Sep-19 1:28:00 

1 ~30071 382 orig 246 
' Store routine 
! The descriptor for this virtual array 


VALUE ! Where to find items for array 
) : NOVALUE = 


rete Bliss-32 Heh re 
BASRTL.SRCJBASVIRTIO.652;1 


Page Rt 


— 


GLOBAL ROUTINE BASSSWHOLE_VA_STORE ( 
DESCRIP, 


ee 


; FUNCTIONAL DESCRIPTION: 


4 2 ss 2 


Store a values in a virtual array. 
FORMAL PARAMETERS: 


DESCRIP. mz.r 
VALUE.rz.r 


The descriptor for the virtual array 
The place from which to fetch the val 


number of bytes to store i 


alue. The 
s in the LENGTH field 


i | 
of DESCRIP. | 
i IMPLICIT INPUTS: 

NONE 

{ IMPLICIT OUTPUTS: 

ie 


FUN (OC OCONO NEAR OC OONOU EW 


Ww 


NONE 
ROUTINE VALUE: 
COMPLETION CODES: 


SEG 


POPOPOPIPOPONOPOPENPOPOPOPIPONENOPNNONIDS 8 tt tt Ot ts 
rm 
oO 
Ss 
- 


NONE 
SIDE EFFECTS: 


WN SO CONOVUESWN “OOO VWRUSWwn oO 


Signals if an error is encountered. 


RERRRRER PLGA ASSUVO VON coor ee eS OS OS SESS 
NOUS W—OOOnou NEw 
[wale lear ae oF at at ot at ot et et 1, 


ee ee ee ee ee ee ae ee ee a ed ee ee ee ee a ec a ed ed ed 
ee ee ee ae ee ee a ee ee a ee ce el le ee ee a ee a a el ed ee 
Se tae” tee tae be te be te tee ee te he Bt eB ie ee ee eb i eee te ie ee ee ee ee ee | 


8 
9 
0 
; 
4 
5 
$ BEGIN 
8 Pp 
, DESCRIP : REF BLOCK (8, BYTE); 
1 GLOBAL REGISTER 
36 CCB = K_CCB_REG : REF BLOCK C, BYTE); 
54 
55 CHAN, ! The channel this array is defined on 
8 3$ HANDLE, ! Pointer to info for this array 
9 5 GET_STATUS, ' Last RMS GET status 
050 28 PUT STATUS, ' Last RMS PUT status 
051 5 SOURCE, ' Address of value 
O26 60 LEN ' Length of values to move 
05 61 REMAINING _BYTES i Number of bytes left to move 
054 6¢ SAVE_CCB = VOLATILE; i CCB to POP, or 0 
055 6 
B28 64 '+ 
5 65 ' Establish a handler to pop the CCB on unwind. 
058 66 te 


f 
| 


—@ 
oa 
me 
wu 
oOo i 
—_ 
TD 
—s 
6 
_ 
Oo 


SEeSSE 


~~ 
=o 
OCONEE WN —OOON 


COnou 


bt pet try te eet PPP RNR WS Ae 


ooo 
wr 


SOoOOCoOOOoOOOCOOCOOOoOoCOOoO 
wu 


SHURA R UW OSORNO URI 


$335388e2 


on 


C000 00 Co COCO OOM OOOO NI NINN ISIS NN SSS SSS SSS 


SOoooooooooe oun 
FW OC OCONOUE WN "OO 


SPELLS 


SELF 
ed a nt 


Be Ge Be Be Oe Se Se Se Se Oe Se Fe Se Se Fe Se Se Se Ge Fe Se Se Fe Se Ge Fe Ge Se Ge FH Se Se Se Se Se Se Se Ge Se Ge Fe Se Ge Se Se Se Ge Se Ge Ge ee Se Ge Ge Ge Se ae 
ee es a a a a ka a i a ak a at at a to os 
me a a tk at kaa at i i i i a i i a Ba tk tt at a 2 = 2 Ss 2 SS ss SS SS 2 2 SS SF SS SS SS YS tS YY YY 


ee ee at et a = = ot YS 1 I 


Mororerns 


— 2 st ot et 
WMEwN—O 
Wr —O0Oonou 


-1984 01:28:0 AX-11 Bliss-32 V4.0-74 
=}382 91 :68:9 YBASRTL SRE BASVIRE TO. 68251 - 


ENABLE 
HANDLER (SAVE_CCB); 


1+ 
: SOURCE is initially VALUE until some values have been copied to the 
: virtual array. 
SOURCE = .VALUE; 
t+ 
! The first buffer may contain data from a previous array. Subtract the 
} offset from the normal 512 bytes. 
IF (.DESCRIP CDSCSL_ARSIZE] + .DESCRIP (dSCSi _BYTEOFF]) LSS K_BLOCK_LENGTH 
REMAINING _BYTES = .DESCRIP CDSCSL_ARSIZE) 
REMAINING _BYTES = K_BLOCK_LENGTH - .DESCRIP CDSCSL_BYTEOFF); 


le 
Fetch the array's channel number from its descriptor 
"CHAN = .DESCRIP CDSCS$L_LOGUNIT); 
Get a pointer to the LUB/ISB/RAB for this channel. If the channel has not 
been opened yet, this call will allocate the LUB/ISB/RAB, but we will reject 
it for lack of the LUBSV_OPENED bit. 


BASSSCB_PUSH (. CHAN, LUBSK_LUN_MIN); 
SAVE_CCB = .CCB; 


IF ( NOT .CCB CLUBSV_OPENED]) THEN BASSSSTOP (BASS$K_VIRARROPE); 


te 

! If the channel was not opened with organization VIRTUAL, reject it. This 
' also catches channel 0, which is always open but never has VIRTUAL 
organization. 


if (.CCB CLUBSB_ORGAN] NEQ LUBSK_ORG_VIRTU) THEN BASS$STOP_I10 (BASS$K_VIRARRDIS); 
wT this channel has been used for block 1/0, reject it. 

IF (.CCB CLUBSV_BLK_USEJ) THEN BASSS$STOP_I1O (BASS$K_ILLOPE); 
it the recordsize of the file is not 512 bytes, reject it. 


IF (.CCB CRABSW_USZ] NEQ K_BLOCK_LENGTH) THEN BASSSSTOP_IO (BASS$K_VIRBUF TOO); 


== | 


r-—_—_—_---- —---- Te 


B 14 
S$$VIRT_IO 16-Sep-1984 01:28:00 AX-1 P 31 
27 4 et 7 9188 308 a 
t 


If the file is marked read only, reject it. 
IF (.CCB CLUBSV_READ_ONLY]) THEN BASS$STOP_IO (BASSK_ILLILLACC); 


mark the LUB as being used for a virtual array. 
CCB CLUBSV_VA_USE) = 1; 

i Record access will always be by key 

CCB CRABSB_RAC] = RABSC_KEY; 


14 
' Set the RAB so that a $GET to a non-existent record will still lock 
that record. 


CCB CRABSV_NXR] = 1; 


Set the address of our CLOSE appendage in the LUB. If somebody else's 
is already there, we have a serious problem. 


IF (.CCB CLUBSA_CLOSEJ EQLA 0) THEN CCB CLUBSA_CLOSE] = BASS$$VA_CLOSE; 
IF (.CCB CLUBSA_CLOSE] NEQA BAS$$VA_CLOSE) THEN BASSS$STOP_IO (BASS$K_PROLOSSOR) ; 


! If this is not the first reference to the file, we may have to write out 
the current buffer. 


IF (.CCB CLUBSL_LOG_RECNO] NEQ 0) 
THEN 
BEGIN : 
con CLUB$V_OUTBUF _DRJ) ! only write if buffer changed 


BEGIN 
PUT_STATUS = $PUT (RAB = .CCB); 
IF .PUT_STATUS EQL RMS$_CONTROLC 


DDS DS DS OS SSDS TTT ES BEE EAA IWropoponorer 
FUN 9 OONAUE WN 9 ODNAUE WN (OO ONA UE WW SO OONOUS 


5 

6 BASSSSIGNAL_CTRLC (); 

8 IF (NOT .PUT_STATUS) 

9 THEN 

0 BEGIN 

1 WHILE (.PUT_STATUS EQL RMS$_RSA) DO 
‘ BEGIN 

; $WAIT (RAB 

5 


PUT STATUS = $PUT iRAB = CCB); 

IF .PUT_STATUS EQL kMSS_CONTROLC 
BASSS$SIGNAL_CTRLC (); 

END; 


SAN N NN 


adadadadadadutatadadtaabablatadaluwiiuadBababaimubaauaatatatiatmabuaabababababiabeababaieiaiwbababaababab aaa aba 
Soscoono 


2 
2 
5 
2 
2 
2 
2 
2 
2 
2 
2 !+ 
2 
5 
§ 
g 
4 
3 
i 
4 
4 
4 
4 
4 
4 
5 
4 
5 
5 
6 
6 
6 
6 
6 
6 
6 
§ 
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blegeze Yeifo-as 
SRC JBASVIRTIO.B52;1 (6). 


a 


ef 


14 2 
| BASSSVIRT_10 1$-5e -1984 01:28:00 AX-11 Bliss-32 V4.0-74 Page 32 Bi 
1-027 1e788p-198e 91:88:28 4 FBAsateSaeseacvintyo. 692; % 6) | 
: 1173 1881 5 IF (NOT .PUT_STATUS) THEN BASS$$STOP_IO (BASS$K_IOERR_REC); 3 
3 1174 1882 4 BND 3 os Bs i ‘ 
: 1175 188 4 CCB CLUB$V_OUTBUF_DRI = 0; : 
; 1176 1884 END; 3 
3 3i¢7 1885 END; $ 
> 1178 1358 ; 
3; 1179 188 1+ : 
; 1180 1888 ! Loop through all the values to be stored. Moves are done in blocks of 512 3 
; 1181 1889 ! bytes, except for possibly the last buffer which may not be full. . 
MBP gS : 
3 1i8e 189¢ pen FROM 1 TO ((.DESCRIP COSCSL_BYTEOFFJ + .DESCRIP CDOSC$L_ARSIZEJ)/512 + 1) DO : 
>; 1186 1894 CCB CLUBSL_LOG_RECNO) = .BLKCNT; F 
; 4 139? GET_STATUS"= $GET (RAB = .CCB); : 
3; 1189 1897 IF .GET_STATUS EQL RMS$_CONTROLC 3 
; 1190 1898 THEN ; 
3 1191 1899 BASSSSIGNAL_CTRL® (); 3 
3; 1192 1900 3 
3 1193 1901 + $ 
3 1194 1308 ; ' If we are at EOF, extend the file. This is compatable with the PDP-11. : 
3 1195 190 = 3 
3: 1196 1904 3 3 
3 1197 1905 4 IF ((.GET STATUS EQL RMSS$_EOF) OR (.GET_STATUS EQL RMS$_OK_RNF)) : 
3; 1198 1906 3 THEN F 
3 1199 1907 4 BEGIN F 
: 1200 1908 4 3 
3; 1201 1909 4 AL 3 
; 1606 1910 4 FAB_BLOCK : $FAB_DECL, : 
: 12 1911 4 EXTEND_STATUS; 3 
3: 1204 1912 4 F 
; 1$0? 1915 4 !+ : : : 
: 1206 1914 4! If the file is already allocated beyond the current end-of-file point : 
; 1207 1915 4 ! (which can happen on disk if the cluster size is greater than 1) then 3 
: 1208 1916 4 ! do not do any allocation. 3 
3; 1209 1917 4 !- 3 
; isi? 1918 4 3 
3: 1211 1919 5 IF (.CCB CLUBSL_LOG_RECNO] GTR .CCB CLUBSL_REC_MAX]) 3 
3 isi¢ 1920 4 THEN $ 
3 121 136) 5 BEGIN 3 
> 1214 19 ; 5 SFAB_INIT (FAB = FAB_BLOCK); $ 
3; 1215 19235 5 FAB_BLOCK PEARSE ALG] = .CCB CLUB$L_LOG_RECNO] - .CCB CLUBSL_REC_MAX); 3 
: 1516 1924 5 FAB_BLOCK CFABSW_IFIJ = .CCB CLUBSW_IFITJ; 3 
3; 121 1925 5 CCB Tt eat = FAB_BLOCK; 3 
3; 1218 1926 5 CCB CRABSL_STSJ = SS$ NORMAL; 3 
; 1s}? 1362 2 EXTEND_STATUS = SEXTEND (FAB = FAB_BLOCK); F 
3 \$6) 13¢) 5 IF ( NOT .EXTEND_STATUS) THEN BASSS$STOP_IO (BAS$K_IOERR_REC); 3 
3 135 1931 3 CCB CLUBSL_REC_MAX] = .CCB CLUBSL_REC_MAX] + .FAB_BLOCK CFABSL_ALQ); 3 
3: 1224 1936 5 CCB CLUBSA_FAB] = 0; 3 
3 1225 1935 4 END; é 
| $ 1934 4 3 
3 1935 4 !+ , : 
: 1228 1936 4 ! Since we did not really read a record, make sure the buffer contains 3 
3 1229 1937 4 ! all zeros. 3 


ew 
OOCONOUESWN—O 


PADMA MNMVMNMNVVIUIE BEELER 
WN “SO ODNAUS WN —OOONOUS Wh 


o 
0969 09 09 09 09 09 SI NINN SN SN SSNS SSD AAA AA IIIT EEE 


DONA UNE WD -2§ 0 ODA UE WIN 9 OD NA NEWRY 9 ODNAUE ANS CO OONOUES WN OOM 


SOWONOUESWN —OVOONOuW 
DWDODODODOOOOODOOO OOOO OOOOVODOODODODODOOODODOOODOOOODODOOOOOOOOOODOOOOOO 


OCC cD 


0900 0909 SIN NI SIN NN NNO OO 
ewn—o 


Wn 


ee ee ee ee ee ee ee ee ee ee ee ee ee eee ee ee ee ee ee ee ee 
ee ee ee ee ee ee a ee ee a a a ad dd 
SIAN BE AE BIR DDD DDD TT SU BNE PE 
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RAS 


D 14 
16-Sep-1984 01:28:0 Ax-11 Blis 
13-808- 1382 91 :68:0 BASRTL. Re} 
Tih (0, if? CRABSW_USZ], ) CRABSL_UBF J); 
ABSW_RSZ] = .C RABSW 3 
L-RBFJ = .CCB CRABSL 


IF ( NOT .GET_ STATUS) 
THEN 
BEGIN 


14 
Again, worry about the RSA RMS error. 


WHIL ET_STATUS EQL RMS$_RSA) DO 


(RAB = CCB); 
TATUS = $GET (RAB = .CCB); 


-GET_STATUS EQL RMS$_CONTROLC 
NBASSSSIGNAL_CTRLC 0; 
END; 
IF ( NOT .GET_STATUS) THEN BAS$$STOP_IO (BASSK_IOERR_REC); 
END; 
END; 


E ¢ 
BEG 
$SWA 
GET 
IF 
TH 


t+ 
Move data from the value address to the virtual array. 


LEN = MIN (K_ BLOCK LENGTH, .REMAINING BYTES); 
CHSMOVE (.LEN, .SOORCE, (.CCB CRABSL_RBF) + 
CIF .BLKCNT EQL 1 THEN .DESCRIP COSCSL_BYTEOFF] ELSE 0))); 


'¢ 
Write out the buffer. 
PUT_STATUS = S$SPUT (RAB = .CCB); 
Yi Put STATUS EQL RMS$_CONTROLC 
BASSSSIGNAL_CTRLC (); 
'¢ 
! If the PUT fails, we must worry about the RSA error, which can happen if 


! we are running at AST level, and the AST interrupted some RMS 1/0. If 
we get this error, wait for it to go away. Any other RMS error is fatal. 


IF (NOT .PUT_STATUS) 


72 | 


De Se Oe Be Be Be Se Se Be Bs Bs Se Se Be FH Se Se SH Se Ge Se Se Se Se Ge Ge Ge Ge Se SH Se Se Se Se Se Se Se Se Se Seve Se Se Se Se Se Se Fe Se Se Se Se Se Se ee Se oe 


14 
BASSSVIRT_10 1h-Sep-1984 01:28:00 YAXe11 BLiss-32 v4.0-74 6 P 
eaass 1a-8ep 1:88:20 yA § ’8$2:1 allt § ; 


-5ep-1984 1 ASRTL.SRCIBASVIRTIO 
: 1287 1995 3 THEN : 
+ 1288 1996 4 BEGIN : 
> 1289 1997 4 WHILE (.PUT_STATUS EQL RMS$_RSA) DO 
: 1290 1998 BEGIN 
: 1291 1999 SWAIT (RAB = .CCB); 
; 3 900 PUT_STATUS = $PUT (RAB = .CCB); 
> 129% 00 IF .PUT_STATUS EQL RMS$_CONTROLC 
BOE MeisaastomL cre 0; 
: 1997 005 § apt 
> 1299 $09 4 ‘ 
: 1300 008 4 IF (NOT .PUT_STATUS) THEN BASS$STOP_10 (BASSK_IOERR_REC); 
; 1301 009 END; 
; 1308 010 
: 138? Fla °S T tidtede goth anck Siu Wombat ox teen tat h 
PY > ate pointer an numbde + ¢ t t e 
: 1308 2018 1. p p e r of bytes le © move to the array 
3: 1306 014 
: 1307 2015 SOURCE = .SOURCE + .LEN; 
; 1308 2016 3 REMAINING_BYTES = .REMAINING_BYTES = .LEN; 
: 1310 2018 2 END; ! end of hrough 
431 $019 end of loop through values 
; 1312 2020 2 !+ 
: 131 2021 ' Done with this 1/0 channel. 
> 1314 2022 ie 
: 1315 2023 2 BASSS$CB_POP (); 
> 1316 2024 1 END; ! end of BAS$SWHOLE_VA_STORE 


OFFC 00000 -ENTRY BASSSWHOLE VA_STORE, Save R2,R3,R4,R5,R6,- ; 1710 | 


R7,R8B,RO,RTO,R11 : 

SE AS AE 9E 00002 MOVAB -92(SP), SP : 

58 AE D4 00006 CLRL  SAVE_CCB > 1746 | 

6D O2AC CF ODE 90009 MOVAL 32$,~(FP) : 

08 AC DD 0000E PUSHL VALUE : 1776 | 

57 04 aC 00 00011 MOVL. DESCRIP, R7 > 1783. 
0 Oc A? FB A? C1 00015 ADDL3 -8(R7), 12(R7), RO ; 
00000200 = BF 50 01 90018 CMPL = RO, #542 : 
06 18 000 BGEQ ~=s«d1$ : ; 

56 oc aA? DO 900 4 MOVL 12(R7), REMAINING _BYTES + 1785 

09 11 00028 BRB $ : 

56 00000200 = 8F F8 AZ C3 OO02A 18: SUBL3 -8(R7), #512, REMAINING_BYTES > 1787) 

52 FC A? DO 00033 28: MOVL =4(R7); CHAN : 1792 | 

50 D4 00037 CLRL OR : 1798 

000000006 00 if: 0039 JSB BAS$$CB_PUSH : 

5C OA B DO 0003F MOVL CCB, SAVE_CCB : 1799. 

3B AB 8 0043 BLBS = = 4 x : 1801. 

; 006 BF 9A 0004 MOVZBL M#BAS$K_VIRARROPE, -(SP) ; 

000000006 0 1 £B 0048 CALLS #1, BAS$$STO ; | 

05 C4 AB 91 00052 3$: CMPB Ss «=60(CCB), #5 : 1809 
0B 13 00056 BEQL 6 4$ : 


TEUEEEEE EEE 


F 14 
| BASSSVIRT_10 16-Sep-1984 01:28:00 AX-11 Bliss-32 V4.0-7 Page 35 
M027 19-808- 1382 91:88:08 BASRTL.SRCJBASVIRTIO. 3 2:1 9 a) 
7 006 8F 9A 8 MOVZBL #BASSK VIRARROIS, -(SP) ; 
000000006 0 1 re 208 CALLS a BASSSSTOP ; 
0B 1 ; 06 4$: BBC #1 or tcee) 5 + 1815 
7E 006 8F 9A 0006 MOVZBL #BASSK ILLOpE, -(SP) : 
006000006 00 1 £B 06 CALLS #1, BASSSSTOP. : 
0200 8F 20 AB 81 007 5$ Pu seicce , W512 + 1821 
7E 006 $8 9A 00078 MOVZBL #BASS$K_VIRBUFTOO, -(SP) : | 
000000006 00 1 FB 0007F CALLS #1, BAS$$STOP_IO : | 
0B FC AB 2 Fi 0086 6$: ¢ #2, -4(CCB), 7$ : 1827 
7E 006 F A 00088 MOVZBL #BASSK_ILLILLACC, -(SP) 3 
000000006 00 1 be O08 CALLS #1, BASSSSTOP_IO : 
FF AB . 2 96 7$: BISB2 #1, -1(CCB) + 1832) 
1E AB 1 90 0009A MOVB. #1. 30(CCB) + 1836) 
06 AB 80 8F 88 0095 BISB2 #128, 6(CCB) + 1841. 
AG AB DS OOOA TL -92¢¢CB) + 1847) 
06 12 O00A6 EO )~—ts«8S : 
AG AB 0000v CF 9E QO0A8 MOVAB BASS$VA_CLOSE, -92(CCB) : 
50 0000V CF 9E OOOAE 8S MOVAB BASS$SVA“CLOSE, R + 1849 
50 AS =6AB. D1 «0008 CMPL -92 (By. 3 
0B 13 00087 BEQL : | 
7E 006 8F 9A 00089 MOVZBL #BASSK PROLOSSOR, -(SP) : | 
000000006 00 01 FB 000BD CALLS BASSSS ; | 
EO AB DS 000C4 9S: TSTL =35¢¢ + 1856. 
65 13 000C7 BEQL : 
60 FE AB 03 €1 000C9 BBC Pe -2(CCB), 14$ + 1859) 
5B DD OOOCE PUSHL cc : 1862. 
000000006 00 01 FB 00000 CALLS SYSSPUT ; 
58 50 pDO 00007 MOVL 40 PUT_STATUS 3 
00010651 FF 58 D1 OOODA CMPL  PUT_STATUS, #67153 + 1864) 
07 12 000€1 BNE F | 
000000006 00 00 FB 000E3 CALLS #0 BASSSSIGNAL _ CTRLC + 1866 
3D 58 €8 OOOEA 10$:  BLBS  PuT_S : 1868 
000182DA BF 58 D1 OO0ED 11$:  CMPL PUT ~STATUS. 199034 ; 1871 | 
27 12 000F4 BNEQ  12$7 ; | 
5B DD 000F6 PUSHL CCB : 1873) 
000000006 00 01 FB O000F8 CALLS #1, SYSS$WAIT : 
5B DD OOOFF PUSHL (CCB > 1874 
000000006 00 01 FB 00101 CALLS a. SYSSPUT F | 
58 50 D0 00108 MOVL ATUS : 
00010651 8F 58 D1 00108 CMPL at SYATUS. #67153 : 1876) 
D9 12 0011 BNEQ 11$7 ; 
000000006 00 00 FB 00114 CALLS #0, BASSSSIGNAL_CTRLC : 1878 | 
00 11 00118 BRB 11$ > 1871. 
OA £8 0011D 12$:  BLBS PUT -STATUS. 13$ : 1881) 
7E 01 CE 001 0 MNEGL #1,7- ; 
000000006 00 01 FB 001 CALLS #1. BASSSSTOP_ 10 : 
FE AB 08 8A 0010A 13$: BICB2 #8, -2(CCB) > 1883 
50 FB OA? OC A? C1 0019E 148: ADDL$. ~—«'12€R7), -B(R7), RO > 1892 
50 00000200 BF C6 001 DIVL2 # 12 * ; | 
08 AE 01 AO 9E 001 2 MOVAB 1(ROS, 8(SP) : 
SA ps 014 CLRL BLKcnt : 1975 
0166 31 O42 BRW 1$ : 
EO AB 3A D0 00145 15$: MOVL  BLKCNT, -32(CCB) + 1894. 
B DD 00149 PUSHL (CCB > 1895 
000000006 00 01 FB 0148 CALLS #1, SYS$GE ; | 
59 0 pO 0015 MOVL RO. GET STATUS ; 


-—-@W 
._— 
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14 
| BASSSVIRT_10 18. Sep-1984 01:28:00 AX=11 Bliss -32 v4.0 Page 3 
witty eae rik Se yee thet hg are ve 3 
00010651 8F D1 00155 CMPL  GET_STATUS, #67153 : 1897 
000000006 00 1g BoleE eats oS. passesionn CTmc + 1899. 
0001827A BF D| O15 16$: CPL Get STATUS, 198998 : 1905 
00018049 &8F 29 p1 ae cHPL ‘aig, #98377 : 
4 AB £0 AB if 0177 17$: CMPL -32(CCB), -28(CCB) + 1919 
48 15 0017C BLEO $ : 
0050 8F 00 6E : 00 2c 00176 MOVCS #0, (SP), #0, #80, $RMS_PTR 1922, 
o¢ AE 5008 i 80 90187 MOVW #20483, $RMS_PTR : 
22 AE 3 018 MOVB #2, $RMS_PTRT22 : 
2B AE 0 20 00191 MOVB #2. $RMS~PTR+31 : 
1c AE EO AB E46 AB C3 00195 SUBL3 -28(CCB)> -32(CCB), FAB_BLOCK+16 + 1923. 
OF AE DO }=6AB «BO 0019¢ MOVW  -48(CCB). FAB BLOCK+2 + 1924 
—8 AB OC AE 9E OO1A1 MOVAB FAB_BLOCK, -24(CCB) + 1925 
08 AB 07 00 0016 OVL #1, 78(CCBS + 1926 
OC AE 9F OOTAA PUSHAB FA BLOCK + 1927 
000000006 00 01 FB OO1AD CALLS SY SSEX TEND : 
OA 50 £8 001B4 BLBS EXTEND TATUS, 18$ + 1929 
7E 01 CE 00187 MNEGL , 5) ; 
000000006 00 01 FB 001BA CALLS BASS$STO P_10 : 
£4 AB 1¢ AE CO 001C1 18$: ADDL2 Ab BLOCK*t6, “=28(CCB) + 193 
E8 AB D4 0016 CLRL. = 24TCC : 193 
20 AB 00 6E a 00 2c 001¢9 19$: moves #0, (SP), #0, 32(CCB), a36(CCB) : 193 
22 AB 20 AB BO 001D1 MOV 2(CCB), 34(CCB) + 194 
28 «AB 24 AB DO 001D6 MOVL 6(CCB). 40(CCB) : 194 
40 11 00108 BRB 23$ : 190 
3D 59 £8 001DD 20$ BLBS § GET_STATUS, 23$ : 1946 
0001820 aF $9 D1 OO1EO 218:  CMPL — GETTSTATUS, #99034 + 1953, 
27 12 OO1E7 BNEG 22$7 : 
B DD 001E9 PUSHL (CCB : 1955 | 
000000006 00 01 FB OO1EB CALLS #1, SYSSWAIT : | 
5B DD 001F2 PUSHL (CCB : 1956) 
000000006 00 01 FB OO1F4 CALLS #1, S¥S GE T ; 
59 50 DO 001FB MOVL RO. GET : 
00010651 8F 59 D1 OOTFE CMPL _«GET_ST Atos. 987153 : 1958 | 
D9 12 00205 BNEQ 21$7 : 
000000006 00 00 FB 00207 CALLS #0, BASS$SSIGNAL_CTRLC : 1960. 
DO 11 0020E BRB 21§ : 1953 
OA 59 £8 00 19 228: LBS GET_STATUS, 238 > 1964 
7 1 CE 00 1 MNEGL #1,7-(SP) : 
000000006 0 1 FB 00216 CALLS #1. BASS$STOP : | 
50 6 00 0021D 238: MOVL REMAINING. BYTES. RO : 1974) 
00000200 &F 50 D1 00220 CMPL RO, #512 : 
05 15 00 7 BLEG 24$ ; 
50 0200 8F 3C 00229 MOVZWL #512, RO : 
04 AE 50 DO 00 24$:  MOVL RO, LEN : 
01 SA D1 00 CMPL BLKCNT, rT : 1976 
06 if 00 BNEQ 5 : 
50 FB A? DO 00237 MOVL  =-8.R7), RO : 
08 11 00238 BRB 26$ ; | 
ps 0230 358: CLRL_ RO : | 
28 BB40 00 BE 04 AE 28 00203F 26$:  MOVC3 LEN, @SOURCE, a40(CCB)CRO) : 1975 
5B DD 00247 PUSHL (CB : 1982 
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H 14 
BASSS$VIRT_I0 16-Sep-1984 01:28:00 AX-11 Bliss-32 V4.0-74 Page 37 
ter 1o-808-138e 0:98:00 BASRTL SREBARVIRT GO. 682: 1 . (6) 
| seoanone 3 cD ee : 
00010651 &F : D} 33 cMPL put STATUS, #67153 + 1984 
000000006 00 p FB 0 3 CALLS #0, BASSSSIGNAL_CTRLC + 1986 
D E8 00263 27$:  BLBS PUT_STATUS, + 1994. 
000182DA BF 58 1 66 28$: CMPL PUI-STATUS, #99034 : 1997) 
: 12 0026D BNEQ  29$ : | 
B OD of PUSHL (CCB + 1999 
000000006 00 gi FB 00271 CALLS #1, SYSS$WAIT : | 
B DD 00278 PUSHL (CCB + 2000 
000000006 99 gi FB 027A CALLS #1, SYSS$PUT : 
9 D0 00281 MOVL RO, PUT_STATUS ; 
00010651 &F 58 D1 00284 CMPL  PUT_STATUS, #67153 : 2002 
09 12 00288 BNEQ : 
000000006 00 00 FB 0038 CALLS #0, BASS$$SSIGNAL_CTRLC + 2004. 
DO 11 00294 BRB + 1997) 
0A 58 £8 00296 29$:  BLBS | PUT_STATUS, 30$ : 2008 | 
000000006 00 01 FB 00 6 CALLS #1, BASS$$STOP_IO : | 
bE 04 AE c0 002A3 308: ADDL2 LEN, SOURCE : 2015 
56 04 AE C2 002A7 SUBL2 LEN, REMAINING_BYTES : 2016 
FE93 SA 01 08 AE F1 OO2AB 31$: ACBL 8 (SP), #1, BLKENT, 15$ + 1892 
000000006 00 16 O0¢Be JSB BAS$$CB_POP : 2023 
04 00288 RET + 2024 
0000 00289 32$: «WORD Save nothing : 1746 
50 08 AC 00 00268 MOVL (AP), RO : 
50 04 AO DO 002BF MOVL 4(RO). RO ; 
FC AO 9F 002C3 PUSHAB SAVE_CCB : 
01 DD 0026 PUSHL #1 : 
SE DD 002C8 PUSHL SP : 
7E 04 AC 7D OO2CA MOVQ 4(AP), -(SP) : 
0000v CF 03 FB oogce CALLS #3, HANDLER : 
04 002D RET : 


; Routine Size: 724 bytes, Routine Base: _BASSCODE + 0647 
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BASS$SVIRT_ID -1984 01:28:00 AX-11 Bliss-32 V4.0-74 P 9 
wt aa 1 91:98:00 YBASRTL SRE BASVIRTI0.832;1 gt A 
IF ( NOT .PUT_STATUS) 
THEN 
- BEGIN 


; Worry about RMS RSA error. 


POPOPOROROPORPoRonononononononofnononononofnonofnonen 
joleleleleleleolelelelelololo) 
ooono 
w 
RIN AHAE BH ENN BS BPE EPS 


SISARANVLSS 


3 


ta | att EQL RMS$_RSA) DO 

SWAIT (RAB = .CCB); 

PUT_STATUS = SPUT (RAB = .CCB); 

4 -PUT_STATUS EQL RMS$_CONTROLC 

BASSSSIGNAL_CTRLC (); 

END; 
IF ( NOT .PUT_STATUS) THEN BASSS$STOP_IO (BASS$K_IOERR_REC); 
END; 


CCB CLUB$V_OUTBUF _DR) = 0; 
END; 


091 


098 


tt a tn hs Ss SS Ss Ss 
2 IO 


END; ! end of BASS$VA_CLOSE 


001C 00000 BASS$VA_CLOSE: 
- WORD 


Save R2,R3,R4 ; 2026, 
54 000000006 00 9€ 00002 MOVAB SYSS$PUT. R F 
53 000000006 00 9€E 00009 MOVAB BASSS$SIGNAL_CTRLC, R3 : 
1E AB 01 96 00010 MOVB sol, CB) > 2068 | 
50 FE AB 03 £1 00014 BBC #3, -2(CCB), 5$ > 2074 | 
5B DD 00019 PUSHL (CCB : 2077 | 
64 01 FB 0001B CALLS #1, SYSSPUT ; 
52 50 D0 OOO1E MOVL RO, PUT STATUS ; 
00010651 F 5¢ D1 00021 CMPL  PUT_STATUS, #67153 : 2079. 
03 12 9038 BNEQ ; 
63 0 FB 0002A CALLS #0, BASS$SSIGNAL_CTRLC : 2081 | 
35 3 E 900 D 1$: BLBS = PUT_STATUS, > 2083. 
000182DA = BF D1 00030 2$: CMPL  PUT“STATUS. #99034 : 2090 | 
iF 12 999 7 3$ ; | 
5B DD 00039 PUSHL (CCB : 2092. 
000000006 00 gi FB 90058 CALLS #1, SYSSWAIT : | 
B DD 0004 PUSHL > 2093. 
64 01 FB 0044 CALLS #1, SYS$PUT F | 
52 50 00 00047 MOVL RO, PUT STATUS F 
00010651 8F 52 D1 O004A CMPL PUT_STATUS, #67153 > 2095 
DD 12 0051 BNEG ; 
63 00 FB 00053 CALLS #0, BASSSSIGNAL_CTRLC : 2097 | 
D8 11 0096 BRB : 2090 | 
A E8 00058 3$: BLBS §PUT_STATUS, 4$ > 2101 
E 01 CE 00058 MNEGL #1,7=(SP) ; 


BARSSVIRT 10 


; Routine Size: 


106 bytes, 


000000006 00 
FE AB 


Routine Base: 


if: Meigs oy 01:28:00 yaxett Ob inges 


-BASSCODE + 0918 


CALL #1, BASSS$STOP_I0 
aa? #8, =2(CCB) 


0-743 
BASVIRI 10.692: 1 


\ 


BASSSVIRT_I10 1% Se 1984 01:28:00 AX-11 Bliss-32 V4.0-74 P 41 . 
' os C7 e oe $ 3 = s eS e = a | 
53 12-8681 984 1:56:46 EBASRTL-SRe BAS IRI 10.682:1 - (8) 1 
3; 1403 109 1 ROUTINE HANDLER ( ! POP CCB on UNWIND : 
3; 14 119 1 . ' signal args : 
3 1405 111°=«1 MECH, ! mechanism args 3 
3: 14 ig 1 ENBL ! variables : 
; 140 115° «1 = : 
; 1408 114 «1 3 
3; 1409 115 1 !e¢ $ 
: 1319 118 : FUNCTIONAL DESCRIPTION: : 
3 1216 118 1! POP the CCB if one of the routines which does a PUSH gets an F 
3 141 119 1! error. This is handled here rather than in the BASIC handler : 
3 1414 leo 63 3 so that the address of the frame of the caller does not have : 
3 1415 12) 73 to be passed all the way down to this module. Also, we wish F 
; 1218 ; ¢ : } to mark that there is no buffer in memory. : 
; 1038 } 2 : FORMAL PARAMETERS: : 
3 1420 3 >» va $1G.rl.a Address of the signal vector. This contains : 
3 1621 127 1! the condition. . : 
3 145¢ 2128 1! MECH. rl.a Address of the mechanism vector. This contains ; 
3 142 2129 1! the status of the frame that signalled. — : 
> 14246 2130 1! ENBL.rl.a Address of the enable vector. This contains 3 
3 1425 2131 1! a pointer to the CCB, or 0. 3 
; 1058 $138 1! 3 
3 14 1 1 ! IMPLICIT INPUTS: | : 
3: 1428 site 1! 3 
; a 9 135 1! NONE : 
3; 14 $139 1! 3 
3 1431 137 1°! IMPLICIT OUTPUTS: 3 
: 1038 2138 1! : 
3; 143 eis, 3 3 NONE ; 
3 1434 2140 1! ; 
3: 1435 2141 1 ! ROUTINE VALUE: : 
3: 1436 $128 1! : 
3 1437 1435 1! NONE : 
: 1438 2144 1! 3 
3 1439 145 1 ! COMPLETION CODES: 3 
3: 1440 Hr 1! 3 
3 14461 147 1! Always SS$_RESIGNAL, but this is ingored when we are : 
3 a | sis & unwinding. : 
3 144 1449 1! : 
3 14446 2150 1 ! SIDE EFFECTS: : 
3 1445 2151 1! 3 
3 1668 136 1: Usually calls BAS$$CB_POP to complete the 1/0. : 
3 144 bm ee Also marks the buffer empty. : 
3; 1448 154 1! 3 
3: 1449 155 1 !e- : 
3; 1450 136 1 3 
3 1451 15 BEGIN 3 
: 1636 158 3 
3 145 159 MAP ; 
3 1454 160 SIG : REF VECTOR ! signal vector : 
> 1455 161 MECH : REF VECTOR, i mechanism vector ; 
: 1638 166 ENBL : REF VECTOR; ! enable vector : 
3 145 16 : 
3; 1458 164 GLOBAL REGISTER : 
3 1459 2165 CCB = K_CCB_REG : REF BLOCK C, BYTE); : 


BASS$VIRT_10 1b-$ep=1984 01:28:00  YAX=11 Bliss-32 v4.0-74 Page 42 ; 
ow — e = 3 3 = s = e = a 
83) 12=868=1 382 94:88:08 LBASRTL SRE SBASVIRI 10.682: - (8) 1 
: 1460 166 
3 1461 16 BIND 
3 1468 168 SAVE_CCB = .ENBL (1); i 
3 146 1 
3 1464 1 9 ' 
3 1465 17 ! If this is the unwind condition, restore the CCB. i 
3 re «| 76 : Mark that there is no buffer in memory. i 
108 eg : 
; 169? 129 1F A (LIBSMATCH. COND (SIG C1], SREF (SS$_UNWIND))) AND (.SAVE_CCB NEQA 0)) 
: 1471 199 BEGIN 
; 1478 176 BASSSCB_GET (); i 
3 147 179 i 
3 1474 180 4 IF (.CCB EQLA .SAVE_CCB) 
3 1475 181 3 THEN ; 
3 1476 188 4 BEGIN i 
3 1477 183 4 CCB CLUBSL_LOG_RECNO) = 0; i 
3 1478 184 4 CCB _CLUBSV-OUTBUF _DR) = 0; i 
3 1479 2185 4 BASSSCB_POP (); i 
; 1480 186 4 RETURN TSS$_RESIGNAL); 
3 1481 187 4 i 
3 1482 188 ELSE i 
3 148 189 i 
; iene Siay IF (.CCB NEQA 0) THEN LIBSSTOP (OTSS$_FATINTERR); 
3 1486 198 END; i 
3 1487 19 ; 
3 1488 194 '+ ; 
3 1489 $132 ! We do not recognize the signal, pass it without comment. H 
3 1490 196 '- i 
3 1491 2197 RETURN (SS$_RESIGNAL); 3 
3 1492 2198 1 END; ! of HANDLER : 
: 
0804 00000 HANDLER:.WORD Save R2,R11 : 2109 i 
52 Oc AC bo Benge MOVL , : 2168 | 
7E 0920 i C 00006 MOVZ2WL #2336, -(SP) > 2175 | 
—E DOD Bo008 PUSH SP ; 
7E 04 AC 04 C1 0000D ADDL #4, SIG, -(SP) 3 
000000006 99 9¢ 44 80015 CALLS aoe IBSMATCH_COND 3 
1 E 1 BLBC R : 
04 862 D3 001C TSTL  a4(R2) ; | 
C 13 OO01F BEQL 2s 3 | 
000000006 ’00 16 00021 JSB BASS$CB_GET : 2178) 
04 2 ' 5B 01 00027 CMPL CCB, a4TR2) 3 2180 | 
OF 12 00028 BNEQ 1 3 
£0 AB oe 002D CLRL -32(CCB) 3 2183 | 
FE AB 9 A 000 BICB2 #8, -2(CCB) > 2184. 
000000006 09 16 000 JSB BASSSCB_POP > 2185 | 
117.=«11 A BRB $ : 2186) 
58 b 90 C 1$ TSTL cB 3 2190 | 
go 1 3 BEQL $ 3 
00000000G 8F DD 0004 PUSHL #OTSS$_FATINTERR : 


BASSSVIRT_10 
tt aia 
000000006 98 
Routine Size: 83 bytes, Routine Base: 
1493 3200 1 END 
1494 00 
1495 01 O ELUDOM 
Name Bytes 
_BASSCODE 


hobo p-1986 91: 8:00 AX-11 Bliss-32 v4 


14-Sep-1984 11:56:46 


0046 CALLS 


FB — 
0918 g} zt 00040 2s: MOV ZUL *2$2h oR 


BASSCODE + 0985 


! end of module BASSVIRT_IO 


PSECT SUMMARY 


Library 


File 
_$255$DUA28: CSYSLIBISTARLET.L32;1 


Attributes 


2520 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Statistics 
eececsse Syabols o<o-<- ee Pages Processing 
Total Loaded Percent Mapped Time 
9776 70 0 581 00:01.1 


COMMAND QUALIFIERS 


0 
BASRTL.SRCIJBASVIRTIO.B 
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(8) 


197. 


198 


BLISS/CHECK= (FIELD, INITIAL ,OPTIMIZE) /NOTRACE/LIS=L1S$:BASVIRT 10/0BJ=0BJS :BASVIRT10 MSRC$:BASVIRTIO/UPDATE=(ENH$:BASVIRTIO 


pize: ake + 0 data bytes 


plhiey fines 

Lines/CPU Min: 
Lexenes/CPU-Rin: ob s9a 
yu Used: 251 pages 
— ation mod 


——_ = 


ENT CORPORATION 
ND PROPRIETARY 
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